Hallo Leute,
das mit dem Speichern der Datei usw habe ich ohne Probleme hinbekommen. Mein problem liegt da drinn das ich mir den Pfad anzeigen lassen möchte wo ich die Datei speichere. Das ganze soll dann so sein das *Datei* in der MessageBox ersetzt wird durch den Pafd und Dateinamen.
Wäre super wenn mir jemand sagen könnte wie ich das hinbekomme.
Hier mein Code
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| if (save.Execute) then
begin
if FileExists(save.filename) then
begin
case messageBox(handle,'*Datei* besteht bereits.'+chr(13)+'Möchten Sie sie ersetzen?','Speichern unter',MB_ICONWARNING OR MB_YESNO OR MB_DEFBUTTON1) of
IDNO:
begin
speichern1.Click;
end;
IDYES:
begin
Richedit1.Lines.SaveToFile(save.filename);
end;
end;
end else
begin
Richedit1.Lines.SaveToFile(save.filename);
end;
end; |
Danke schon mal.
Mfg Dog
