Save StringGrid в файл?

[kta87]

Отыскал процедуру по сохранению StringGrid в файл

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
  f: TextFile;
  i, k: Integer;
begin
  AssignFile(f, FileName);
  Rewrite(f);
  with StringGrid do
   begin
     Writeln(f, ColCount);
     Writeln(f, RowCount);
     for i:= 0 to ColCount -1 do
      for k:= 0 to RowCount -1 do
       Writeln(F, Cells[i, k]);
   end;
   CloseFile(F);
end;

Использование

procedure TForm1.Button2Click(Sender: TObject);
 begin
   LoadStringGrid(StringGrid1, 'c:\temp.txt');
 end;

однако это решение сохраняет StringGrid в файл в 1 столбик. Подскажите как сделать что бы в первом столбике сохранялись данные из второй колонки, через пробел сохранялись значения с третьей колонки? (Первая колонка фиксированная)!

[Pamparam]

str:string;

for i:= 0 to ColCount -1 do
str:='';
for k:= 0 to RowCount -1 do
str:=str+Cells[i, k]+' ';
end;
Writeln(F, str);

[kta87]

Этот код компилируется с Warning по переменной i. и результат кстати при тесте тоже ни какой так все и сохраняется в 1 столбец друг за другом!

[phomm]

Наверное, перед str := ''; пропущен begin - отсюда и варнинг, должны быть вложенные циклы, а получаются последовательные, вот и переменная i становится неопределённой, о чем и говорит компилятор.
End - чсх , присутствует.
Pamparam, не ленимся оформлять код кнопочкой #

[kta87]

Всем спасибо, тема close; Сохраняю в Excel

[psycho-coder]

Хочу добавить на будущее.

При сохранении значений в файл столбиком, есть некоторый гемор. Намного проще сохранить каждый стобец в отдльную строку в файле.

[Pamparam]

Если хранятся только числа, то так удобнее, а при хранении в строку ячейки нужно как-то определять где началась новая строка стринггрида

[psycho-coder]

При выгрузки столбца или строки, функцией GetRows или GetColls, разделитель будет #10#13, так что StringReplace тут верный друг. Ну и обратно соответсвенно, StringReplace и SetColls или SetRows.