zu umständliches Speichern?

[dataspider]

Ich weiss nicht, ob du das meinst:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ASaveDialog : TSaveDialog;
  AFileName   : string;
begin
  ASaveDialog := TSaveDialog.Create(self);
  try
    ASaveDialog.DefaultExt := 'csv';
    ASaveDialog.Filter     := 'CSV -Datei (*.csv)|*.csv';
    ASaveDialog.InitialDir := ExtractFilePath(Application.ExeName);
    ASaveDialog.Options    := ASaveDialog.Options + [ofOverwritePrompt];
    if ASaveDialog.Execute then
      AFileName := ASaveDialog.FileName
    else
      AFileName := '';
  finally
    ASaveDialog.Free;
  end;
  if AFileName <> '' then
  begin
    AssignFile(f, AFileName);
    // Dein Code zum Erstellen CSV - Datei
    ...
  end;
end;

Frank