So ich hab es jetzt erstmal so umgestellt:
Delphi-Quellcode:
procedure TForm1.BtSpeichernClick(Sender: TObject);
var
Textdatei: textfile;
z:integer;
begin
if savedialog1.Execute=true then
begin
assignfile(Textdatei,savedialog1.FileName);
for z:=1 to stringgrid1.RowCount-1 do
writeln(Textdatei,stringgrid1.cells[0,z]+';'+stringgrid1.cells[1,z]+';'+stringgrid1.cells[2,z]+';'+stringgrid1.cells[3,z]+';'+stringgrid1.cells[4,z]+';'+stringgrid1.cells[5,z]+';'+stringgrid1.cells[6,z]+';'+stringgrid1.cells[7,z]+';');
end
else
begin
showmessage('Dateiladefehler! Ladevorgang abgebrochen.');
end;
closefile(Textdatei);
end;
Das löst zwar mein Problem, aber sieht nich soo schick aus...