Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi String in zuvor gewählter Datei speichern (https://www.delphipraxis.net/23718-string-zuvor-gewaehlter-datei-speichern.html)

andre.maus 8. Jun 2004 16:24


String in zuvor gewählter Datei speichern
 
Hallo,

ich habe folgendes Problem:
Ich schreibe gerade an einem Programm, in dem ein Anwender Daten in ein Memo-Feld eingibt.
Dieser String soll dann in eine Datei geschrieben werden. Soweit kein Problem...
Nun gibt es aber einen Ordner in dem sich mehrere Textdateien befinden, von denen sich der
Benutzer, die Datei auswählen muss, bevor die Daten geschrieben werden. Er soll also auf
"Daten speichern" klicken, dann soll sich ein Datei-Auswahldialog öffnen, die entsprechende
Datei soll dann gewählt werden um abschliessend den String hineinzuschreiben. Kann mir
jemand einen Tip geben, wie man das Ganze implementiert. Ich komme absolut nicht weiter...

Viele Grüße,

Andre

NikoMitDaMacht 8. Jun 2004 16:35

Re: String in zuvor gewählter Datei speichern
 
Also mit nem TSaveDialoge müsste das gehen
Delphi-Quellcode:
if savedialog1.execute then datei:=savedialoge1.filename;
[edit=Christian Seehase]Doppelpost gelöscht. Mfg, Christian Seehase[/edit]

NikoMitDaMacht 8. Jun 2004 16:44

Re: String in zuvor gewählter Datei speichern
 
Ok besser wäre wohl :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
datei :String;
begin
if savedialog1.Execute then
  begin
  datei:= savedialog1.FileName;
  memo1.Lines.SaveToFile(datei);
  end;
end;

Christian Seehase 8. Jun 2004 18:15

Re: String in zuvor gewählter Datei speichern
 
Moin Zusammen,

wobei sich die zusätzliche Variable auch einsparen lässt.

andre.maus 9. Jun 2004 05:18

Re: String in zuvor gewählter Datei speichern
 
Super!
Vielen Dank für die Infos!
klappt wie erwünscht!

Gruß,
Andre :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:11 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz