Мобила, Нужна помощь Опции

[autoexe]

Доброго время суток!

Unit
.....
....

Type
tTabBoot = packed record
      ptr : pointer;
      len : integer;
end;
var 
 {$include SrvBoot.pas}
 TabBoot : array of tTabBoot = ( ptr: @AllBoot; len: SizeOf(AllBoot));
....
....
...
end.

SrvBoot.pas
{Bin->Pas}
AllBoot : array[0..105] of byte = ( $68,$52,$00 
                                          .. и т.д.........);
  // эти данные отправить в мобилу
{total 106 bytes}

как это правильно реализовать?

Сообщение отредактировано: volvo - 5.11.2006 20:39