Сохранение record в TList

← →
ancot (2006-05-31 17:30) [0]

Доброго всем дня.
Подскажите как сохранить запись в TList а потом считать ее оттуда

TMyRecord = record
a, b: Integer;
c: String;
end;

procedure...
var myrec: TMyRecord;
begin
myrec.a = 1;
myrec.b = 1;
myrec.c = "aaa";

List.Add(@myrec); // писать вроде так
end;

← →
Игорь Шевченко © (2006-05-31 17:34) [1]

> Подскажите как сохранить запись в TList а потом считать
> ее оттуда

Выделить память под запись, хранить указатель на нее в TList.

Пример смотреть в db.pas класс TLookupList

← →
Reindeer Moss Eater © (2006-05-31 17:46) [2]

Да, но рекорд-то при этом сохранится не в листе, а в памяти сбоку.

Представить рекорд в виде непрерывной последовательности байт и сохранить их в элементах TList (по четыре штуки в элементе)

← →
tesseract © (2006-05-31 17:53) [3]

Только накатал перенесли ветку :-(
PmyRecord = ^TmyRecord;
TMyRecord = record
a, b: Integer;
c: String;
end;

procedure...
var myrec: TMyRecord;
begin
new(Myrec)
list:=TList.create;
myrec^.a = 1;
myrec^.b = 1;
myrec^.c = "aaa";

List.Add(myrec); // писать вроде так

// Убийство, Freemem строго не рекоменуется, тк. longstring у нас.
Dispose(List.items[0]);
List.free;
end;

var myrec: ^TMyRecord;
или
var myrec: PMyRecord;

ведь тебе нужен указатель!!!

> var myrec: ^TMyRecord;

очепятался :-)

Сохранение record в TList Найти похожие ветки