Registriert seit: 9. Jul 2004
Ort: Aken (Anhalt-Bitterfeld)
1.335 Beiträge
Delphi XE5 Professional
|
Re: Filter im SaveDialog ansprechen
27. Mär 2005, 20:11
Eine Case-Anweisung
Delphi-Quellcode:
Case SaveDialog.FilterIndex of
1 : Document.SaveToFile(ChangeFileExt(SaveDialog.FileName, '.html'));
{...}
End;
wäre vermutlich besser. Das ChangeFileExt vermeidet fehlende, falsche oder doppelte Endungen.
Anstelle
SaveDialog.FileName := Pfad;
würde ich
SaveDialog.InitialDir := Pfad;
nehmen.
Gruss Garfield
Ubuntu 22.04: Laz2.2.2/FPC3.2.2 - VirtBox6.1+W10: D7PE, DXE5Prof
|