SaveDialog auswerten?

[marabu]

Delphi-Quellcode:

begin
  SaveDialog1.Title := 'Exportieren';
  SaveDialog1.Filter := 'Alle Dateien (*.*)|*.*'
    + '|Text-Dateien (*.txt)|*.txt'
    + '|CSV-Dateien (*.csv)|*.csv';
  with SaveDialog1 do begin
    FilterIndex := 1;
    FileName := 'NamenLos';
    DefaultExt := 'txt';  // schau mal hier
    if Execute then
      Memo1.Lines.SaveToFile(FileName);
  end;
end;

Nu geht das...

marabu