Probleme mit Speichern...

[DeddyH]

Wie wäre es denn hiermit (Fehlerbehandlung bzgl. Dateioperationen weggelassen)?

Delphi-Quellcode:

procedure TForm1.BtSpeichernClick(Sender: TObject);
var
  Textdatei: textfile;
  z, i: integer;
  sl: TStringList;
begin
  if savedialog1.Execute then
    begin
      sl := TStringlist.Create;
      try
        Assignfile(Textdatei, savedialog1.FileName);
        for z := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
          begin
            sl.Assign(StringGrid1.Rows[z]);
            for i := 0 to StringGrid1.FixedCols - 1 do
              sl.Delete(0);
            sl.Delimiter := ';';
            sl.StrictDelimiter := true; //nur auf aktuellen Delphi-Versionen
            WriteLn(Textdatei, sl.DelimitedText);
          end;
        CloseFile(Textdatei);
      finally
        sl.Free;
      end;
    end;
end;