Цитата:
Сообщение от 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;
А вот как сделать, чтобы он не перезаписывал файл, а добавлял новые строки, я не могу додуматься...
__________________
Если программа даёт неверный результат - в ней ошибка. Если же результат правильный - ошибок, как минимум, две.
|