Filter im SaveDialog ansprechen

[Grolle]

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?

[SirThornberry]

über Savedialog.FilterIndex kannst du herausfinden welches gewählt wurde (ist nicht 0-basierend sondern 1-basierend)

[Christian Seehase]

Moin Grolle,

bei einem SaveDialog solltest Du nicht mehrere Endungen je Filter vorsehen.
Du kannst es natürlich machen, hast dann aber das Problem, dass Du Dir von den gewählten Endungen eine aussuchen musst.

[Grolle]

Aber wie kann ich dann anhand des FilterIndex eine
entsprechende Endung zuweisen?

[PierreB]

So in etwa:
if FilterIndex = 1 then SaveToFile(pfad + '.html')

[Garfield]

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.

[Grolle]

Hi!
Habe es jetzt so gemacht. Allerdings speichert das Prog die Datei jetzt ganz ohne Endung?

Delphi-Quellcode:

procedure TForm2.Speichernals1Click(Sender: TObject);  // Datei|Speichern als
begin
  SaveDialog1.FileName := pfad;
  if SaveDialog1.Execute then
  begin
    Pfad := SaveDialog1.FileName;
    Caption := ExtractFileName(pfad);
    case SaveDialog1.FilterIndex of
     1 : begin
           ChangeFileExt(SaveDialog1.FileName,'.txt');
           Speichern1Click(Sender)
         end;
     2 : ..................

Hilfeeeeeeeeeeee

[malo]

Sicher, dass du den gewählten Index auch in der Case-Abfrage drin hast?

[Grolle]

So funktioniert es auf jeden Fall:

Delphi-Quellcode:

procedure TForm2.Speichernals1Click(Sender: TObject);  // Datei|Speichern als
begin
  SaveDialog1.FileName := pfad;
  if SaveDialog1.Execute then
  begin
    Pfad := SaveDialog1.FileName;
    Caption := ExtractFileName(pfad);
    case SaveDialog1.FilterIndex of
     1 :  SynEdit1.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName,'.txt'));
     2 : ..................

Das Problem ist, dass das einfache Speichern danach nicht funzt (erstellt eine neue Datei
ohne Endung), oder was meinst du?

[Garfield]

Zitat von Grolle:

Allerdings speichert das Prog die Datei jetzt ganz ohne Endung?

Das ist bei Deinem Beispiel korrekt. Denn der Befehl
ChangeFileExt(SaveDialog1.FileName,'.txt'); entfernt nur die Dateierweiterung. Der Teil '.txt' bleibt unberücksichtigt. In Deinem Beispiel musst Du
SaveDialog1.FileName := ChangeFileExt(SaveDialog1.FileName,'.txt'); nehmen. Dann wird eine vorhandene Dateierweiterung entfernt und '.txt' angehängt.

PS: Habe es mit Delphi 3 Professional überprüft und es funktioniert.