Hatte ganz übersehen, dass du speuichern wolltest...
Delphi-Quellcode:
procedure TForm1.speichern;
var t : TextFile;
c,r : integer;
begin
AssignFile(t,'
c:\stringgrid.txt');
Rewrite(t);
for r := 0
to StringGrid1.RowCount-1
do
begin
for c := 0
to StringGrid1.ColCount-1
do
begin
Write(t,StringGrid1.Cells[c,r]+'
;');
//kenne ASCII für Tab gerade nicht,
//deswegen ; zum Trennen
end;
Writeln(t,'
');
//neue Zeile
end;
CloseFile(t);
end;