Hallo!
Im OnCreate Ereignis einer Form definiere ich die Filter für den SaveDialog:
Delphi-Quellcode:
SaveDialog1.Filter := '
Alle Dateien (*.*)|*.*;|Html Dateien (*.html; *.htm)|*.html; *.htm' +
'
|Php Dateien (*.php; *.php3; *.php4; *.phtml; *.inc)|*.php;*.php3;*.php4;*.phtml;*.inc' +
'
|Cascading Stylesheets (*.css)|*.css' + '
|Java Dateien (*.java)|*.java' +
usw.....................
anschließend rufe ich Datei speichern unter so auf:
Delphi-Quellcode:
procedure TForm2.Speichernals1Click(Sender: TObject);
begin
SaveDialog1.FileName := pfad;
if SaveDialog1.Execute then
begin
Pfad := SaveDialog1.FileName;
Caption := ExtractFileName(pfad);
Speichern1Click(Sender)
end;
end;
Wie kann ich nun, wenn der User den Filter im SaveDialog auswählt die Datei mit der entsprechenden
Endung speichern?
