Filter im SaveDialog ansprechen

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