Savedialoge und Endungen

[Delphi Star]

Kann man in einem Savedialog irgendwie eintellen, dass z.B. wenn als Dateityp Textdatei angegeben ist, der eingegebene Dateiname aber gar kein *.txt als Endung hat, dies automatsich hinzugefügt wird, sobald man auf Speichern klickt :?:

[Gentleman]

Hi!

Das müsste etwa so gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    begin
      if pos('.txt', SaveDialog1.FileName)> Length(SaveDialog1.FileName) - 4 then
        begin
          SaveDialog1.FileName:= SaveDialog1.FileName + '.txt';
        end;
    end;
end;

-> nicht getestet

[EDIT]Da musst du dann halt noch unterscheiden, welches Format ausgewählt ist.[/EDIT]

:hi:

[Delphi Star]

Nein, das meine ich nicht. Es soll vom Dialog aus geändert werden, damit die Überprüfungen, z.B. ob die Datei schreibgschützt ist, auch auf den Namen mit der Endung angewendet werden.

[Christian Seehase]

Moin Delphi Star,

dann müsstest Du die Überprüfung im OnCanClose-Ereignis durchführen.

[Delphi Star]

Das funktioniert auch nicht, das "OnCanClose"-Ereignis wird ausgeführt, nachdem die Überprüfungen gemacht worden sind. Anscheinend ist die einzige Möglichkeit alle Prüfungen, z.B. ob die Datei existiert, manuell im "OnCanClose"-Ereignis durchzuführen. Das ist mir aber zu umständlich, da muss es doch einen einfacheren Weg geben.

[sECuRE]

Hi,

ist dafür nicht die Eigenschaft "DefaultExt" gut?

cu

[Sharky]

Zitat:

Zitat von Delphi Star

Das funktioniert auch nicht, das "OnCanClose"-Ereignis wird ausgeführt,....

Hai Delphi Star,

wenn ich dich richtig verstehe möchtest Du nicht nach dem SaveDialog die Endung wissen sondern bevor er geschlossen wird?

Im OnCanClose wird zwar die Endung der Filter noch nicht an den Dateinamen gehängt aber der .FilterIndex hat den Wert des ausgewählten Filters.

[Garfield]

Zitat:

Zitat von Gentleman

Delphi-Quellcode:

if pos('.txt', SaveDialog1.FileName)> Length(SaveDialog1.FileName) - 4

Das funktioniert nur, wenn die Dateierweiterung '.txt' ist. Ist nur ein Buchstabe groß geschrieben, ist das Ergebnis FALSE. Ich würde

Delphi-Quellcode:

if lowercase(ExtractFileExt (SaveDialog1.FileName)) = '.txt'

nehmen.