1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.SBSpeichernClick(Sender: TObject);
 var i,j : integer;
      f : textfile;
   begin
     if not form1.save.execute then
     begin
      showmessage('Fehler beim Speichern');
      exit;
      end;
 assignfile(f,'i:\');
     {$I-}
     rewrite(f);
     {$I+}
 if not IOresult = 0 then
     exit;
     with stringgrid1 do begin
     writeln(f,ColCount);
     writeln(f,RowCount);
     for i := 0 to form1.stringgrid1.colcount -1 do
     begin
     for j := 0 to form1.stringgrid1.rowcount -1 do
     begin
     writeln(f,cells[i,j]);
      end;
        end;
        end;
        closefile(f);

end;					

1:

assignfile(f,'i:\test.txt');