SaveDialog ignoriert defaultExt

Stauch · Beiträge: 140 Win 2000, Win XP D4

Hallo,

ich versuche paar html-Schnipsel aus einem TMemo heraus zu speichern, aber beim Speichern werden mir weder die gesetzten Filter angezeigt, noch die Erweiterung html gesetzt.
Hier ist der Code

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure ...
var filename:string;
begin
if saveDialog1.Execute then
 begin
 saveDialog1.Filter:='HTML-Dateien|*.hml;*.htm';
 saveDialog1.DefaultExt:='html';
 saveDialog1.FilterIndex:=1;
 filename:=saveDialog1.FileName;
 maps[activeMap].SaveCode(FileName); *A*
 end;

Bei *A* wird eine Prozedur aufgerufen, die den Text des Memo mit memo.lines.savetoFile(filename) abgespeichert. (Das klappt ja auch gut) Ich muss halt bloß immer die Erweiterung per Hand eintragen.

Findet jemand meinen Fehler?

C.

_________________
Geht das? Und wenn ja, warum nicht?

Keldorn · Verfasst: Di 06.04.04 11:28

Hallo

erst die eigenschaften setzen, dann den Dialog aufrufen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure ...
var filename:string;
begin
saveDialog1.Filter:='HTML-Dateien|*.hml;*.htm';
saveDialog1.DefaultExt:='html';
saveDialog1.FilterIndex:=1;
if saveDialog1.Execute then
 begin
  filename:=saveDialog1.FileName;
  maps[activeMap].SaveCode(FileName); *A*
 end;

edit: auch mal durchlesen, was in der OH zu defaultext steht

Zitat:

Erweiterungen mit mehr als drei Zeichen werden nicht unterstützt ...

Mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

Stauch · Beiträge: 140 Win 2000, Win XP D4

Jetzt klappt es. Danke

und

Zitat:

Erweiterungen mit mehr als drei Zeichen werden nicht unterstützt ...

muss ich überlesen haben ... :oops:

Carsten

_________________
Geht das? Und wenn ja, warum nicht?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme