Hier jetzt eine immer noch nicht
funktionierende Lösung:
Speichern unter:
Delphi-Quellcode:
begin
SaveDialog1.FileName := pfad;
if SaveDialog1.Execute then
begin
Pfad := SaveDialog1.FileName;
Caption := ExtractFileName(pfad);
case SaveDialog1.FilterIndex of
1 : SynEdit1.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName, '.txt'));
2 : SynEdit1.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName, '.htm'));
3 : SynEdit1.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName, '.php'));
Speichern:
Delphi-Quellcode:
begin
if pfad = StandardFileName then
Speichernals1Click(Sender)
else
begin
SynEdit1.Lines.SaveToFile(pfad);
SynEdit1.Modified := False
end;
Also
speichern unter klappt einwandfrei. Wenn ich allerdings danach auf
speichern
klicke wird einfach eine neue Datei ohne Endung erstellt. Ich find den Fehler nicht.
Hilfeeeeeeeeeeeeee
