| Autor |
Beitrag |
Girgl
Beiträge: 281
D6 Enterprise
|
Verfasst: Mo 29.03.04 20:36
Hallo,ich bin grad dabei nen simplen editor ala wordpad zu coden,nur soll er halt ein bischen mehr funktionen bieten.
Das is aber jetz erstmal nebensächlich.Ich hab folgendes Problem und zwar beim Speichern/Laden soll in dem Dropdownmenu,bei der man den typ datei auswählen kann,als das man die datei speichern will,angezeigt werden,dass man es als txt-file abspeichert.Leider is die Liste ganz leer und ich weiss nich wie er das macht,dass das programm das file automatisch als *.txt file speichert?Wie kann ich des machen?
Hoffe mir kann jemand helfen.
PS:Sollte net nur für *.txt-file gehen sondern es sollte auch "Alle Dateien" gehen
|
|
MathiasSimmack
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mo 29.03.04 20:39
Schau dir im Objektinspektor bitte mal die Eigenschaft "Filter" an, die der Öffnen/Speichern-Dialog hat.
|
|
Girgl 
Beiträge: 281
D6 Enterprise
|
Verfasst: Mo 29.03.04 20:42
yo,danke
habs gerade eben auch gefunden gehabt 
|
|
Girgl
Beiträge: 281
D6 Enterprise
|
Verfasst: Mo 29.03.04 21:03
hallo,mir hat sich leider ein weiteres problem in den weg gestellt und zwar speichert er die datei net so ab wie ich will.
Hier ist der Code
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Speichernunter1Click(Sender: TObject);
begin
Speichern.Execute;
Case Speichern.FilterIndex Of
1:Speichern.DefaultExt:='txt';
2:Speichern.DefaultExt:='.';
end;
Memo1.Lines.SaveToFile(Speichern.FileName);
end; |
Was mus ich bei Fall 2 in die Anführungsstrichen schreiben,damit die dateiendung die is,wie mans selber angegeben hat?
|
|
KidPaddle
Beiträge: 351
WinXP,Linux
D7 Prof, XE7
|
Verfasst: Mo 29.03.04 21:13
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.Speichernunter1Click(Sender: TObject);
begin
if Speichern.Execute then begin
Memo1.Lines.SaveToFile(Speichern.FileName);
end;
end; |
Normalerweise wird der Dateiname automatisch um die ausgewähte Endung erweitert, so daß man das nicht selbst mach muss.
Gruß
KidPaddle
|
|
maximus
Beiträge: 896
Win XP, Suse 8.1
Delphi 4/7/8 alles prof
|
Verfasst: Di 30.03.04 09:32
Hi:
Und wenn überhaupt, dann musst du die 'defaultExt' vor dem execute setzen, weil sie dort für's zusammensetzen gebraucht wird  _________________ mfg.
mâximôv
|
|
MathiasSimmack
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Di 30.03.04 12:07
@Girgl: Nimm dir mal den Beispielcode von KidPaddle zu Herzen, denn das hier
| Girgl hat folgendes geschrieben: | Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| Speichern.Execute;
Case Speichern.FilterIndex Of
1:Speichern.DefaultExt:='txt';
2:Speichern.DefaultExt:='.';
end;
Memo1.Lines.SaveToFile(Speichern.FileName);
end; | |
ist Schwachsinn. So speicherst du immer, selbst wenn du den Dialog mit Abbrechen ... äh ... abbrichst.
|
|
Girgl
Beiträge: 281
D6 Enterprise
|
Verfasst: Di 30.03.04 13:16
Anfangs hab ichs ja auch so gehabt,aber es geht trotzdem irgendwie net.
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.Speichernunter1Click(Sender: TObject);
begin
Speichern.Execute;
Memo1.Lines.SaveToFile(Speichern.FileName);
end; |
Also wenn ich noch zusätzlich defaultExt angeb dann wird alles al stextdatei gespeichert,aber auch wenn ich "Alle Dateien" mach.Wenn ich kein defaultExt angeb wird net mal ne textdatei erzeugt
|
|
maximus
Beiträge: 896
Win XP, Suse 8.1
Delphi 4/7/8 alles prof
|
Verfasst: Di 30.03.04 14:25
| Girgl hat folgendes geschrieben: |
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.Speichernunter1Click(Sender: TObject);
begin
Speichern.Execute;
Memo1.Lines.SaveToFile(Speichern.FileName);
end; | |
Das ist grob fahrlässig!!! Es gibt durchaus einen grund, warum execute true oder false zurück gibt -> abbrechen button!
Und zu der eigentlichen frage:
vielleicht hilft dir dieses flag der options property:
| Delphi Hilfe hat folgendes geschrieben: |
ofExtensionDifferent Dieses Flag wird zur Laufzeit gesetzt, wenn der ausgewählte Dateiname nicht die in DefaultExt angegebene Erweiterung hat. Vergessen Sie nicht, dieses Flag zurückzusetzen, wenn Sie es in einer Anwendung verwenden. |
_________________ mfg.
mâximôv
|
|
