Показать сообщение отдельно
  #3  
Старый 23.04.2013, 07:35
Аватар для Erilar
Erilar Erilar вне форума
Новичок
 
Регистрация: 30.03.2011
Сообщения: 91
Версия Delphi: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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;

А вот как сделать, чтобы он не перезаписывал файл, а добавлял новые строки, я не могу додуматься...
__________________
Если программа даёт неверный результат - в ней ошибка. Если же результат правильный - ошибок, как минимум, две.
Ответить с цитированием