autom. Erweiterung beim Savedialog...

[MrKnogge]

Moin Markus

Delphi-Quellcode:

if ExtractFileExt(SaveDialog.FileName) = '' then
  case SaveDialog1.FilterIndex of
    1: DateiName := ChangeFileExt(SaveDialog.FileName,'.txt');
    2: DateiName := ChangeFileExt(SaveDialog.FileName,'.doc');
  end;

[Edit]Hochkomma vergessen [/Edit]

[edit=Sharky]Doppelposting auf wunsch gelöscht Mfg, Sharky[/edit]