Скачать: CL | DM;

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
Дает указатель, куда и следует двигать

---

← →
DiamondShark ©   (2004-08-24 13:04) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c