[Erilar]

Сохраняю в файл Таблицу. Как сделать так, чтобы таблица, при сохранении, не перезаписывала файл, а добавляла строки?

[lmikle]

Сообщение от Erilar

Сохраняю в файл Таблицу. Как сделать так, чтобы таблица, при сохранении, не перезаписывала файл, а добавляла строки?

А как ты сохраняешь?
Если через паскалевские процедуры (TextFile или File Of), то Append вместо Reset.
Если через потоки (TFileStream), то Seek в конец потока.

[Erilar]

Сообщение от lmikle

А как ты сохраняешь?

Через процедуру:

Код:

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

Procedure SaveTable(Table: TspStringGrid; Path: String); var List: TStringList;      i, j: integer; begin List:= TStringList.Creat; List.LoadFromFile(Path); for i:=0 to Table.ColCount-1 do List.Add(intToStr(fmForm1.StringGrid.RowCount)); with Table do   for i:=1 to RowCount do   for j:=0 to ColCount-1 do     List.Add(Cells[j,i]); List.SaveToFile(Path); List.Free; end;

А вот как сделать, чтобы он не перезаписывал файл, а добавлял новые строки, я не могу додуматься...

[Alegun]

После создания StringList нужно дописать

Код:

1	List.LoadFromFile(Path);

[Erilar]

Сообщение от Alegun

После создания StringList нужно дописать

Код:

Это конечно можно сделать, но если файл уже тяжелый, то при этой процедуре программа будет зависать. Или я не прав?

так и делаю, просто забыл написать...