Сохранение и чтение файла в StringGrid

[Anny_Apple]

Помогите, плиз,.....не могу понять как это делать....

Вообщем мне нужно заполнить 6 ячеек, сохранить, а после при загрузке чтобы всё читалось и редактировалось........но почему-то у меня не сохраняет всё и следовательно выводит какой-то бред.....

//______________________________________________________
//          сохранение в текстовый файл
procedure TForm1.Button_SaveClick(Sender: TObject);
Var I : Byte;
    F : TextFile;
    S : String;
begin
  AssignFile(F, ExtractFilePath(ParamStr(0))+'Test.txt');
  Rewrite(F);
  For I := 1 to StringGrid1.RowCount - 1 do
  Begin
       Writeln(F,StringGrid1.Cells[0,I] +','+StringGrid1.Cells[1,I]);
  end;
  CloseFile(F)
end;

//______________________________________________________
 //               загрузка из текстового файла
procedure TForm1.Button_LoadClick(Sender: TObject);
var
  L : TStringList;
  I : Integer;
begin
  L := TStringList.Create;
  L.LoadFromFile('Test.txt');
 StringGrid1.RowCount := L.Count+1;
  For I := 0 To L.Count-1 Do
    Begin
       StringGrid1.Cells[0,i + 1] := Copy(L[i],1,Pos(',',L[i])-1);
       StringGrid1.Cells[1,i + 1] := Copy(L[i],Pos(',',L[i])+1,Length(L[i]));
    End;
  L.Free;
end;

[Anny_Apple]

всё, уже поняла......отбой.........

Сохранение и чтение TStringGrid  

procedure SaveGrid;
var
  f: textfile;
  x, y: integer;
begin
  assignfile(f, 'Filename');
  rewrite(f);
  writeln(f, stringgrid.colcount);
  writeln(f, stringgrid.rowcount);
  for X := 0 to stringgrid.colcount - 1 do
    for y := 0 to stringgrid.rowcount - 1 do
      writeln(F, stringgrid.cells[x, y]);
  closefile(f);
end;

procedure LoadGrid;
var
  f: textfile;
  temp, x, y: integer;
  tempstr: string;
begin
  assignfile(f, 'Filename');
  reset(f);
  readln(f, temp);
  stringgrid.colcount := temp;
  readln(f, temp);
  stringgrid.rowcount := temp;
  for X := 0 to stringgrid.colcount - 1 do
    for y := 0 to stringgrid.rowcount - 1 do
    begin
      readln(F, tempstr);
      stringgrid.cells[x, y] := tempstr;
    end;
  closefile(f);
end;

если кому понадобится

[Serge_Bliznykov]

если я правильно понял Вас,
посмотрите мой вариант здесь


УПС! Опоздал...