Bei SaveDialog geht der Filter nicht

[Äfan]

Hi,

Ich habe ein großes problem mit dem SaveDialog von Delphi. Ich stelle den Dialog so ein, damit er Textdateien Speichert, also bei Filter: Textdateien|*.txt

Wenn ich jetzt aber einen Text aus einer Memo speichern will, wird der Text zwar gespeichert, aber die Datei hat keinen Dateityp .

PS: Habe schon Beispiele angeschaut, aber da geht es auch nicht.

Danke

Äfan

[NicoDE]

Zitat von Äfan:

aber die Datei hat keinen Dateityp

Ich dachte immer, dass es Dateitypen nur auf Macs gibt. Wie auch immer, der Filter hat nichts mit der Standard-Dateiendung zu tun (DefaultExt) - selbige solltest Du einstellen, wenn der Benutzer beim Speichern die Endung nicht engeben muss.

[nailor]

jetzt sei doch nicht so pingelig, auch wenn du recht hast

[Äfan]

Ja gut, aber man kann ja unten normalerweiße die Dateiendung ändern und nicht nur einen Festen Typ einstellen. Aber wenn ich in DefaultExt was eingebe, dann kann ich auch die Dateiendung ändern.

OK Danke jetzt gehts ja.

[nailor]

klappts oder nicht? werde aus deinem post nicht so ganz schlau.

[NicoDE]

Zitat von Äfan:

Ja gut, aber man kann ja unten normalerweiße die Dateiendung ändern und nicht nur einen Festen Typ einstellen. Aber wenn ich in DefaultExt was eingebe, dann kann ich auch die Dateiendung ändern.

Der Filter hat nichts dem Dateinamen bzw. der Dateiendung zu tun, sondern filtert nur die Anzeige der bereits im angezeigten Verzeichnis vorhandenen Dateien (um dem Benutzer die Auswahl von vorhandenen Dateien zu erleichtern, falls er selbige ersetzen möchte).

Um es zu verdeutlichen: Welche Endung soll Deiner Meinung nach die Datei 'automatisch' bekommen, wenn der Filter '*.foo;*.ba?' lautet?

ps: der Filter-Index kann nach Aufruf des Dialogs abgefragt, und dazu verwendet werden, im Quellcode eine Logik für automatische Dateiendungen zu implementieren - nichts desto trotz ist es nur ein Anzeigefilter

[Äfan]

Den ersten ! Ich ceck das jetzt schon.

[Muetze1]

Moin!

Ansonsten noch ein Tipp: Nach dem Ausführen des SaveDialoges enthält die Options Eigenschaft das gesetzte Flag ofExtensionDifferent, wennd er Nutzer trotz allen anderem eine anderen Endung angegeben hat als in der DefaultExt eingetragen wurde. Da ich in meinem Programm nur eine Endung zulasse habe ich das so gelöst:

Delphi-Quellcode:

    If ( dlg_BIBSaveNew.Execute ) Then
    Begin
      lFN := dlg_BIBSaveNew.FileName;

      If ( ofExtensionDifferent In dlg_BIBSaveNew.Options ) Then
        lFN := ChangeFileExt(lFN, '.bib');

Nur mal so als Tipp/Hinweis...

MfG
Muetze1