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

Сохранение 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;

---

← →
AlexWlad ©   (2006-05-31 20:08) [4]

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

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

---

← →
tesseract ©   (2006-05-31 21:26) [5]

> var myrec: ^TMyRecord;

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

---

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

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



Память: 0.46 MB
Время: 0.024 c