| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Move() и Variant [D7, WinXP]
vlad_ri © (2004-08-23 09:48:00)Мне нужно, рассматривая запись как массив байтов, перенести её в вариантный массив. Ниже приведён пример переноса в динамический байтовый массив. Как мне его изменить чтоб вместо 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;
DiamondShark (2004-08-24 13:04:00) [1]В индексе справки набрать
Variant support routines
Гаврила (2004-08-23 09:59:00) [2]VarArrayLock
Дает указатель, куда и следует двигать
| |
