SaveDialog auswerten?

[smart]

Wenn man mit
SaveDialog.Filter := 'Text- Dateien (*.txt)|*.txt|CSV- Dateien (*.csv)|*.csv'; 2 Filter gesetzt hat, wie kann man nun auswerten welches Filter der Anwender geklickt hat?

[Christian Seehase]

Moin Smart,

schau Dir mal TSaveDialog.FilterIndex an.

[smart]

Zitat von Christian Seehase:

Moin Smart,

schau Dir mal TSaveDialog.FilterIndex an.

Habe ich schon mit

Delphi-Quellcode:

If SaveDialog.FilterIndex = 2 Then SaveDialog.Filename := 'Namenlos.csv';
If SaveDialog.FilterIndex = 1 Then SaveDialog.Filename := 'Namenlos.txt';

Bzw:

Delphi-Quellcode:

If SaveDialog.FilterIndex = 1 Then SaveDialog.Filename := 'Namenlos.csv';
If SaveDialog.FilterIndex = 0 Then SaveDialog.Filename := 'Namenlos.txt'

versucht, klappt aber nicht. Was mache ich da falsch?.

[Christian Seehase]

Moin Smart,

die Indizes beginnen bei 1.
An welcher Stelle fragst Du dass denn ab?

Ggf. könnte auch das Ereignis OnTypeChange für Dich von Interesse sein.

[smart]

Zitat von Christian Seehase:

Moin Smart,

die Indizes beginnen bei 1.
An welcher Stelle fragst Du dass denn ab?

An diese:

Delphi-Quellcode:

SaveDialog1.Title := 'Exportieren';
SaveDialog1.Filter := 'Text- Dateien (*.txt)|*.txt|CSV- Dateien (*.csv)|*.csv';
//  Abfrage
If SaveDialog1.FilterIndex = 2 Then SaveDialog1.Filename := 'Namenlos.csv';
If SaveDialog1.FilterIndex = 1 Then SaveDialog1.Filename := 'Namenlos.txt';
if SaveDialog1.Execute then
  Memo1.Lines.SaveToFile(Form1.SaveDialog1.Filename);

Du meinst in der OnTypeChange die Abfrage setzen, oder?

[marabu]

Hi smart,

normalerweise interessiert dich der Index gar nicht, da er vom common dialog berücksichtigt wird - die Endung wird korrekt beigesteuert, falls du sie bei der Eingabe des Dateinamens vergessen hast:

Delphi-Quellcode:

procedure TDemoForm.SaveButtonClick(Sender: TObject);
begin
  with SaveDialog do begin
    FilterIndex := 1;
    if Execute then
      ShowMessage(Format('(%d) %s', [FilterIndex, FileName]));
  end;
end;

In deinem Beispiel ist die FilterIndex-Abfrage eigentlich überflüssig...

Grüße vom marabu

[SirThornberry]

wenn du wissen willst welchen Filter der nutzer gewählt hat solltest du die Abfrage dementsprechend auch nach dem SaveDialog1.Execute machen.

[Christian Seehase]

Moin Marabu,

Zitat von marabu:

die Endung wird korrekt beigesteuert, falls du sie bei der Eingabe des Dateinamens vergessen hast:

nein, wird sie nicht.
(ich habe das eben noch einmal ausprobiert)
Ggf. wird in dem Falle nur die DefaultExt angehängt.

[marabu]

Hi Chris,

wir machen da gänzlich verschiedene Erfahrungen. Mein Beispiel-Code, ergänzt um die Initialisierung, tut genau das, was ich beschrieben habe.

Delphi-Quellcode:

procedure TDemoForm.FormCreate(Sender: TObject);
begin
  SaveDialog.Filter := 'Alle Dateien (*.*)|*.*'
    + '|Text-Dateien (*.txt)|*.txt'
    + '|CSV-Dateien (*.csv)|*.csv';
end;

Ratlose Grüße vom marabu

[marabu]

Zitat von SirThornberry:

wenn du wissen willst welchen Filter der nutzer gewählt hat solltest du die Abfrage dementsprechend auch nach dem SaveDialog1.Execute machen.

Ach du Schreck, smart will den Filename initialisieren!?

Wenn das so ist, dann würde ich das so machen:

SaveDialog.FileName := 'Namenlos'; Alles andere macht ja der common dialog. Wenn man die Erweiterung vorgibt, dann schaltet man den internen Mechanismus aus. Bei vorhandenem .txt wird diese Erweiterung verwendet, auch wenn der User per FilterIndex .csv ausgewählt hat.

marabu