Entwickler-Ecke :: Thema anzeigen - String an bestimmten platz speichern

schermerbua - Mo 13.06.05 20:37
Titel: String an bestimmten platz speichern

Ich habe ein Programm das mir textfiles erstellt, das speichern hab ich so gelöst:

Delphi-Quelltext

1:
2:
3:
4:

test:= TStringList.Create;
  test.Add(Memo1.text+' Textfile produced by the one who can`t be named!');
  test.SaveToFile(edit1.Text+inttostr(p)+'.txt');
  test.Free;

Ich will jetzt aber dass das file an einen platz gespeichert wird, den der user bestimmen kann.
Als erstes brauch ich einen Savedialog. so weit komm ich von selber
aber:
-Wie kann ich dann vom Save dialog das verzeichnis auslesen lasssen?
-Wie muss ich die speicherprocedure ändern, damit dann das file in den bestimmten ordner gespeichert wird?
-wie kann ich im savedalog einstellen, dass er immer als txt speichert?
Danke für die Hilfe!

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

der_zaehe - Mo 13.06.05 20:44
Titel: Re: String an bestimmten platz speichern

Delphi-Hilfe hat folgendes geschrieben:

TSaveDialog zeigt ein modales Windows-Dialogfeld an, in dem der Benutzer einen Dateinamen eingeben oder markieren und eine Datei speichern kann. Das Dialogfeld wird zur Laufzeit erst angezeigt, nachdem es mit der Methode Execute aktiviert wurde. Wenn der Anwender auf die Schaltfläche Speichern klickt, wird das Dialogfeld geschlossen und der angegebene Dateiname in der Eigenschaft FileName gespeichert.

k?

danach brauchst du nur noch deinDialog.FileName auslesen.

schermerbua - Mo 13.06.05 21:32

Und wie kann ich mit der speicherprocedure das file an den gewünschetn platz speichern lassen?

Quelltext

1:
2:
3:
4:

test:= TStringList.Create;
  test.Add(Memo1.text+' Textfile produced by the one who can`t be named!');
  test.SaveToFile(edit1.Text+inttostr(p)+'.txt');
  test.Free;

der_zaehe - Mo 13.06.05 21:38

ich habs jetzt nicht gestestet, aber wie ich die hilfe da verstanden hab mit

schermerbua hat folgendes geschrieben:

Quelltext

1:
2:
3:
4:

test:= TStringList.Create;
  test.Add(Memo1.text+' Textfile produced by the one who can`t be named!');
  test.SaveToFile(deinDialog.FilenName);
  test.Free;

Martin1966 - Mi 15.06.05 10:01

noch ein kleiner hinweis:

pack am besten noch ein try-finally rein:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

test:= TStringList.Create;  
try
  test.Add(Memo1.text+' Textfile produced by the one who can`t be named!');  
  test.SaveToFile(deinDialog.FilenName);  
finally
  test.Free; 
end;

falls das savetofile (oder wo anders) eine exception wirft würde sonst das free nicht aufgerufen werden und es würden speicherlöcher entstehen. ;-)

lg martin

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!