[ALexandr555]

Искал не нашел, как сохранить TList в файл?

[angvelem]

Он для других целей предназначен. Представь у тебя список объектов загружен а ты их в файл.

[ALexandr555]

плохо, мне как раз в такой форме работать хорошо с ним,
приходится работать со TStringList'ами данные в которых держу через разделители

433676864=24.07.2011%1
54538633=24.07.2011%2

мне кажется не совсем рациональное решение чем можно обойтись с возможность сохранения, и без разделителей?

[lmikle]

Надо:
1. Написать классы для твоих данных, содержащие кроме того методы SaveToStream и LoadFromStream (по названиям понятно, что они должны делать?)
2. Перейти от TList к TObjectList.
3. Соответсвенно, для сохранения создать файловый поток, а потом у всех объектов в списке вызвать соотв. метод. С загрузкой сложнее, если объекты разнотипные, то надо будет делвть фабрику и дорабатывать сохранение, что бы сначала писался признак класса объекта, а потом сами данные.

[ALexandr555]

lmikle что то вроде этого?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

procedure TForm1.Button2Click(Sender: TObject); var   fs: TFileStream;   pl: PMyList;   l: Integer;   s: String;   b: Boolean; begin   if OpenDialog1.Execute then begin     FormDestroy (Sender);       fs := TFileStream.Create (OpenDialog1.FileName, fmOpenRead);       while fs.Position < fs.Size do begin       fs.ReadBuffer (l, SizeOf(l));       SetLength (s, l);       fs.ReadBuffer (Pointer(s)^, l);       fs.ReadBuffer (b, SizeOf(b));         New (pl);       pl.obj := s;       pl.buffer := b;         if List = nil then begin         pl.rnext := nil;         pl.lnext := nil;         pl.root := pl;       end       else begin         pl.rnext := nil;         pl.lnext := List;         pl.root := List.root;         List.rnext := pl;       end;       List := pl;     end;       fs.Free;       LoadListToForm;   end; end;   procedure TForm1.Button3Click(Sender: TObject); var   fs: TFileStream;   pl: PMyList;   l: Integer;   s: String;   b: Boolean; begin   if SaveDialog1.Execute then begin     fs := TFileStream.Create (SaveDialog1.FileName, fmCreate);       pl := List.root;     while pl <> nil do begin       s := pl.obj;       l := Length (s);       b := pl.buffer;       fs.WriteBuffer (l, SizeOf(l));       fs.WriteBuffer (Pointer(s)^, l);       fs.WriteBuffer (b, SizeOf(b));       pl := pl.rnext;     end;       fs.Free;   end; end;

[angvelem]

Имелось в виду, НАПИСАТЬ свои классы от существующих.

[ALexandr555]

Да нет, нарыл подобный пример, может сделаю так же

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure SaveListToFile(const AFileName: String; const AList: TList); var   AFileStream: TFileStream;   i: Integer;   n: DWORD; begin   AFileStream:=TFileStream.Create(AFileName, fmCreate);   try     for i:=0 to AList.Count-1 do     begin       n:=DWORD(AList[i]);       AFileStream.WriteBuffer(n, SizeOf(n));     end;   finally     AFileStream.Free;   end; end;

использование:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var   AList: TList; begin   AList:=TList.Create;   try     AList.Add(Pointer(8));     AList.Add(Pointer(7));     AList.Add(Pointer(2011));     SaveListToFile('d:\Downloads\AList.txt', AList);   finally     AList.Free;   end; end;

[M.A.D.M.A.N.]

Сериализация, парень, сериализация.
У твоего объекта должны быть три метода: первый - это ассайн, второй и третий для обеспечения сериализации.