SaveDialog Dateinamen

[nahpets]

Hallo,

Delphi-Quellcode:

var 
  saveDialog: TSaveDialog; 
begin 
  saveDialog := TSaveDialog.Create(self); 
  saveDialog.Filename := EditIrgendwie.text; // <-- so?
  saveDialog.Filter := 'Textdatei*.txt';      
  saveDialog.DefaultExt := 'txt';                
  saveDialog.Options := [ofOverwritePrompt]; 
  if saveDialog.Execute then 
  begin 
    Systemauswertung.Lines.SaveToFile(saveDialog.Filename); 
  end; 
end;