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

[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

[volvo]

А что, нельзя написать программку:

const
  size = 16;
begin
  writeln('Byte(size) = ', Byte(size));
  writeln('Byte(size shr 8)  = ', Byte(size shr 8));
  writeln('Byte(size shr 16) = ', Byte(size shr 16));
end.

и тестировать?

Byte(size) = 16
Byte(size shr 8) = 0
Byte(size shr 16) = 0