С сохранением получилось, даже больше))))
Сначала сохраняло только File.csv, а иначи все валилось...
заменил
'File.csv' на
SaveDialog1.FileName - сохраняет и *.csv под любым именем и *.txt как его не назови....
Цитата:
{Сохраняем таблицу в файл *.txt}
{Меню "Список > Сохранить"}
procedure TForm1.N3Click(Sender: TObject);
begin
SaveDialog1.Execute;
end;
{Показываем диалог сохранения файла. Сохраняем файл}
procedure TForm1.SaveDialog1CanClose(Sender: TObject; var CanClose: Boolean);
var
i, LastRow: Integer;
SList: TStringList;
begin
SList := TStringList.Create;
LastRow := StringGrid1.RowCount - 1;
try
for i := 0 to LastRow do
SList.Add(StringGrid1.Rows[i].CommaText);
SList.SaveToFile(SaveDialog1.FileName);
finally
SList.Free;
end;
end;
|
.... а вот с загрузкой таблицы из файла проблема...
Подскажите, пожалуйста...
