Move() и Variant

← →
vlad_ri (2004-08-23 09:48) [0]

Мне нужно, рассматривая запись как массив байтов, перенести её в вариантный массив. Ниже приведён пример переноса в динамический байтовый массив. Как мне его изменить чтоб вместо array of byte использовать Variant?

type
PRec = ^TRec;
TRec = record
a: integer;
b: string;
end;

var f,g: PRec;
v: array of Byte;
begin
New(f);
f^.a := StrToInt(Edit1.Text);
f^.b := Edit2.Text;

SetLength(v,SizeOf(f^));
Move(f,v,SizeOf(f^));

New(g);
Move(v,g,SizeOf(g^));

Edit3.Text := IntToStr(g^.a);
Edit4.Text := g^.b;

Dispose(g);
Dispose(f);
v := nil;
end;

← →
Гаврила © (2004-08-23 09:59) [1]

VarArrayLock
Дает указатель, куда и следует двигать

В индексе справки набрать
Variant support routines

Move() и Variant Найти похожие ветки