Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.18;
Скачать: 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 вся ветка

Текущий архив: 2006.06.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.054 c
15-1148233357
Ig
2006-05-21 21:42
2006.06.18
Поговорим об играх..


15-1148640234
Nic
2006-05-26 14:43
2006.06.18
Lada Kalina: кто-нибудь катался?


1-1147094322
Sphinx
2006-05-08 17:18
2006.06.18
Как получить интерфейс класса ?


15-1148723193
Kolan
2006-05-27 13:46
2006.06.18
Как преобразовать 4 байта в тип Float


8-1137160063
asd
2006-01-13 16:47
2006.06.18
Картинки gif