Запись из StringGrid в файл при помощи SaveDialog

[NecroSlider]

Есть Grid таблица, нужно чтобы при нажатии на кнопочку вызывался SaveDialog после ввода имени файла и нажатия ок все благопалучно сохранилось в txt файл. Как это сделать?

[SERG1980]

procedure TForml.Button1Click(Sender: TObject);
var
si :TStringl_ist;
i , j:Integer;
Str:String:
Begin
// Создание окна диалога
with TSaveDialog.Create(Owner) do
begin
// Выбор файла
DefaultExt:='.sav';
Filter: = 'Oaimi проекта|*.sav';
if not Execute then exit;
// Сохранение содержимого сетки
si:=TStringList.Create;
// Первой строкой сохраняем общее количество строк и колонок в сетке
si .Add(IntToStr(StnngGridl.RowCount)+ #9+
IntToStr(StringGridl.ColCount));
// Запускаем цикл перебора всех строк сетки
for i:=0 to StringGridl.RowCount-1 do
begin
S t r : = ' ' ;
// Перебираем колонки текущей строки и формируем сохраняемую строку
for j:=0 to StringGridl.Col Count-1 do
Str:=Str+StnngGridl.Cells[j. i]+#9;
// Сохраняем строку
sl.Add(Str);
end:
// Сохраняем содержимое списка строк в файле
si.SaveToFile(FileName):
end;
si .Free;
end;

[NecroSlider]

Спасибо, работает. На всякий случай выложу код с исправленными опечатками и чуть-чуть измененный:

var
si :TStringlist;
i , j:Integer;
Str:String;
Begin
// Создание окна диалога
with TSaveDialog.Create(Owner) do
begin
// Выбор файла
DefaultExt:='sav';
Filter:= '*.sav|*.sav';
if not Execute then exit;
// Сохранение содержимого сетки
si:=TStringList.Create;
// Первой строкой сохраняем общее количество строк и колонок в сетке
si .Add('Строк - '+IntToStr(Tablitsa.RowCount)+#9+'Столбцов - '+
IntToStr(Tablitsa.ColCount));
// Запускаем цикл перебора всех строк сетки
for i:=0 to Tablitsa.RowCount-1 do
begin
Str := ' ' ;
// Перебираем колонки текущей строки и формируем сохраняемую строку
for j:=0 to Tablitsa.ColCount-1 do
Str:=Str+Tablitsa.Cells[j,i]+#9;
// Сохраняем строку
si.Add(Str);
end;
// Сохраняем содержимое списка строк в файле
si.SaveToFile(FileName);
end;
si .Free;

[terranik]

А как потом загрузить в Stringgrid данные из сохраненого файла???

[Serge_Bliznykov]

terranik
поиском по форуму не пробовали пользоваться?

вот мои варианты (точнее один вариант - но дважды )
http://www.programmersforum.ru/showthread.php?t=128500
http://www.programmersforum.ru/showthread.php?t=143960

[terranik]

Спасибо большое!