Форум: "Основная";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];

Вниз

Sohranenie TLIST v file   Найти похожие ветки 

← →
gorv   (2003-01-04 22:57) [0]

Uvazhaemye Mastaki.
Ochen proshu o pomoshi
Idea : neobhodimo sohranit TList structure na disk i potom prochitat eto. file dolzhen byt typoes obyazatelno (ne text!)
Est structure :
PMyList = ^AList;
AList = record
I: Integer;
C: String;
list : TStringList;
end;

var
Form1: TForm1;

f : file of PMyList;
ARecord: PMyList;

Schitaem chto structura uzhe zapolnena …
V list po 10 items

Eto vse nado skinut f file I prochitat obratno
Vot kak eto delau ya:
*********************
Save to file :
assignfile(f, "c:\5.555");
rewrite(f);
for I:=0 to 100 do
write(f, ARecord);
CloseFile(f);
Chtenie iz file
AssignFIle(f, "c:\5.555");
Reset(f);
MyList:=TList.Create;
MyList.Clear;
while not eof(f) do
begin
New(ARecord);
ARecord^.list:=TStringList.Create;
ARecord^.list.Clear;
ARecord^.C:="unknown";
read(f, ARecord);
Memo1.Lines.Add(ARecord^.C + "( count : " + IntToStr(ARecord^.list.Count));
For I:=0 to Arecoed^.list.Count-1 do
m.lines.add(arecord^.list.strings[i]);
end;

CloseFile(f);Vmesto daty iz file chitaetsya musor.
Ochen proshu o pomoshi (esli mozhno fragment coda – mozhet chto ya ne tak delau..
Zaranee vsem spasibo !!!!
Igor (iiof@aol.com)
Esli ne trudno skinte otvet I na etot email

---

← →
Anatoly Podgoretsky   (2003-01-04 23:06) [1]

Не ерунда, а указатели, которые не имеют никакого смысла
Тебе вообще не подходит типизированный файл, надо вместо указателей записывать сами данные, дополняя их указателями на длину данных. Особая сложность с TStringLost, но его то же разворачивать аналогичным образом.

---

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

Форум: "Основная";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c