[Erilar]

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

[lmikle]

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

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

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

[Erilar]

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

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

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

Код:

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 нужно дописать

Код:

List.LoadFromFile(Path);

[Erilar]

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

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

Код:

List.LoadFromFile(Path);

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

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