Forum: Object-Pascal / Delphi-Language
Delphi
by Grolle,
29. Mär 2005
Aber warum klappt das nicht so?:
case SaveDialog1.FilterIndex of
1 : begin
SynEdit1.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName, '.txt'));
Pfad := SaveDialog1.FileName;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Grolle,
28. Mär 2005
Hier jetzt eine immer noch nicht :( funktionierende Lösung:
Speichern unter:
begin
SaveDialog1.FileName := pfad;
if SaveDialog1.Execute then
begin
Pfad := SaveDialog1.FileName;
Caption := ExtractFileName(pfad);
Forum: Object-Pascal / Delphi-Language
Delphi
by Grolle,
27. Mär 2005
So funktioniert es auf jeden Fall:
procedure TForm2.Speichernals1Click(Sender: TObject); // Datei|Speichern als
begin
SaveDialog1.FileName := pfad;
if SaveDialog1.Execute then
begin
Pfad := SaveDialog1.FileName;
Caption := ExtractFileName(pfad);
case SaveDialog1.FilterIndex of
Forum: Object-Pascal / Delphi-Language
Delphi
by Grolle,
27. Mär 2005
Hi!
Habe es jetzt so gemacht. Allerdings speichert das Prog die Datei jetzt ganz ohne Endung?
procedure TForm2.Speichernals1Click(Sender: TObject); // Datei|Speichern als
begin
SaveDialog1.FileName := pfad;
if SaveDialog1.Execute then
begin
Pfad := SaveDialog1.FileName;
Caption := ExtractFileName(pfad);
Forum: Object-Pascal / Delphi-Language
Delphi
by Grolle,
27. Mär 2005
Aber wie kann ich dann anhand des FilterIndex eine
entsprechende Endung zuweisen?