Подскажите! Как преобразовать определенный тип в array of byte

[BrainIce]

Пожалуйста, помогите с задачкой!


{есть тип TSCmd}
Type
TSCmd = record
CMD : String[50];
SQL : String[100];
FILTER : String[100];

TABLE : String[15];
ID: Integer;
end;

....
var
A: TSCmd;
B: Array of Byte;
begin
.....
Как мне преобразовать Тип A в массив B array of byte???
Заранее спасибо
.....
end.

[BOBAH13]

Попробуйте просто B := @A;
Должно выйти

[Stilet]

Должно выйти

Ну не всегда всетки делфи позволяет такие выкрутасы
Ну вообще-то надо знать что это за структура TScmd.
Можно так:

type ab=Array of Byte;;
...
var 
A: TSCmd;
B: ab;
begin
 b:=ab(a);
end.

Но надежнее через move

setlength(b,Размер в байтах TSCmd);
move(a,b,length(b));

[BOBAH13]

Move - копирует данные, т.е. при обращении a[0] := 0 данные в A: TSCmd не будут менятся.