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?
:gruebel:

[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:

Delphi-Quellcode:

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

Delphi-Quellcode:

SaveDialog.FileName := Pfad;

würde ich

Delphi-Quellcode:

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:

Zitat von Grolle

Allerdings speichert das Prog die Datei jetzt ganz ohne Endung?

Das ist bei Deinem Beispiel korrekt. Denn der Befehl

Delphi-Quellcode:

ChangeFileExt(SaveDialog1.FileName,'.txt');

entfernt nur die Dateierweiterung. Der Teil '.txt' bleibt unberücksichtigt. In Deinem Beispiel musst Du

Delphi-Quellcode:

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.

[Grolle]

Hier jetzt eine immer noch nicht :( funktionierende Lösung:

Speichern unter:

Delphi-Quellcode:

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 : SynEdit1.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName, '.htm'));
     3 : SynEdit1.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName, '.php'));

Speichern:

Delphi-Quellcode:

begin
  if pfad = StandardFileName then
    Speichernals1Click(Sender)
  else
  begin
    SynEdit1.Lines.SaveToFile(pfad);
    SynEdit1.Modified := False
  end;

Also speichern unter klappt einwandfrei. Wenn ich allerdings danach auf speichern
klicke wird einfach eine neue Datei ohne Endung erstellt. Ich find den Fehler nicht.
Hilfeeeeeeeeeeeeee :wall:

[Christian Seehase]

Moin Grolle,

Du müsstest an die Variable pfad auch den mit ChangeFileExt geänderten Dateinamen übergeben, sonst hat er keine (oder die im SaveDialog eingegebene)

[Grolle]

Aber warum klappt das nicht so?:

Delphi-Quellcode:

    case SaveDialog1.FilterIndex of
     1 : begin
         SynEdit1.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName, '.txt'));
         Pfad := SaveDialog1.FileName;
         end;

[Christian Seehase]

Moin Grolle,

weil SaveDialog1.Filename nun einmal keine Endung enthält.
Wenn, dann so:

Delphi-Quellcode:

case SaveDialog1.FilterIndex of
     1 : begin
         Pfad := ChangeFileExt(SaveDialog1.FileName, '.txt');
         SynEdit1.Lines.SaveToFile(Pfad);
         end;

[Grolle]

:oops: Besten Dank!!