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

markieren

Delphi-Quellcode:

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

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

Bzw:

markieren

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:

markieren

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:

markieren

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.

markieren

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

SaveDialog auswerten?

SaveDialog auswerten?

Re: SaveDialog auswerten?

Re: SaveDialog auswerten?

Re: SaveDialog auswerten?

Re: SaveDialog auswerten?

Re: SaveDialog auswerten?

Re: SaveDialog auswerten?

Re: SaveDialog auswerten?

Re: SaveDialog auswerten?

Re: SaveDialog auswerten?

Forumregeln

smart Registriert seit: 19. Dez 2004 Ort: Bochum 1.266 Beiträge Delphi 2007 Professional	#1 SaveDialog auswerten? 4. Sep 2005, 11:55 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? Heike Kretschmann Viele Grüße aus Bochum kaum denkt man alles ist fertig, da fängt man wieder von Vorn an.
	Zitat

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.105 Beiträge Delphi 11 Alexandria	#2 Re: SaveDialog auswerten? 4. Sep 2005, 12:04 Moin Smart, schau Dir mal TSaveDialog.FilterIndex an. Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.105 Beiträge Delphi 11 Alexandria	#4 Re: SaveDialog auswerten? 4. Sep 2005, 12:27 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. Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#7 Re: SaveDialog auswerten? 4. Sep 2005, 13:10 wenn du wissen willst welchen Filter der nutzer gewählt hat solltest du die Abfrage dementsprechend auch nach dem SaveDialog1.Execute machen. Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat