Probleme mit Speichern...

[p80286]

Nicht nur bei Dir:

Delphi-Quellcode:

procedure TForm1.BtSpeichernClick(Sender: TObject);
var
Textdatei: textfile;
z:integer;
begin
  if savedialog1.Execute=true then
    begin
    assignfile(Textdatei,savedialog1.FileName);
{--}Rewrite(TestDatei); {-------------------------------------}
      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;

Gruß
K-H