Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Text speichern mit SaveDialog (https://www.delphipraxis.net/36331-text-speichern-mit-savedialog.html)

Tomy 18. Dez 2004 14:53


Text speichern mit SaveDialog
 
hallo

ich möchte einen Text speichern. nun weiss ich nicht wie man den Datentyp angeben kann z.B. '.rtf'! :oops:

Luckie 18. Dez 2004 14:54

Re: Text speichern mit SaveDialog
 
Im Filter zur Auswahl oder als Delphi-Referenz durchsuchenDefaultExt.

brsx 9. Nov 2006 20:13

Re: Text speichern mit SaveDialog
 
ich weiß auch nicht genau wie ich das speichern soll, doch ich bin ein stück weiter
Delphi-Quellcode:
procedure TForm1.speichernunter1Click(Sender: TObject);
begin
   memo1.Text:=liste.text;
   if savedialog1.Execute then
  with savedialog1 do liste.savetoFile(filename);

end;
doch nun tritt ein problem auf. ich kann zwar eine text datei speichern, doch diese ist immer leer und der text, welcher vorher in mein memo feld war ist nicht in der Textdatei.

ich hoffe ihr könnt mir weiterhelfen...

Korgan 9. Nov 2006 20:37

Re: Text speichern mit SaveDialog
 
Hallo,

Das "with savedialog1 do" brauchst du mMn nicht.

Delphi-Quellcode:
procedure TForm1.speichernunter1Click(Sender: TObject);
begin
   memo1.Text:=liste.text;
   if savedialog1.Execute
     then liste.savetoFile(filename);
end;

marabu 9. Nov 2006 20:45

Re: Text speichern mit SaveDialog
 
Hallo ihr beiden und herzlich willkommen in der Delphi-PRAXiS.

FileName ist eine property von SaveDialog.

Delphi-Quellcode:
with SaveDialog do
begin
  DefaultExtension := 'rtf';
  if Execute then
    Memo.Lines.SaveToFile(FileName);
end;
Getippt und nicht getestet.

Gute Nacht

zahor 10. Nov 2006 17:15

Re: Text speichern mit SaveDialog
 
Ich würde es so machen:

Delphi-Quellcode:
procedure TForm1.speichernunter1Click(Sender: TObject);
begin
  Memo1.Text := Liste.Text;
  if savedialog1.Execute
    then memo1.lines.SavetToFile(savedialog1.filename);
end;
kann sein dass es an der eigenschaft text liegt,
d.h. dass wenn liste auch ein memo1 oder sowas ist,
dann würde ich sagen:

Delphi-Quellcode:
procedure TForm1.speichernunter1Click(Sender: TObject);
begin
  Memo1.Lines := Liste.Lines;
  if savedialog1.Execute
    then Liste.lines.saveToFile(savedialog1.filename);
  //oder:
  // then Memo1.Lines.SaveToFile;
  // kommt ja auf's selbe raus.
end;
und noch was: den inhalt von einem memo als rtf zu speichern,
bringt imho überhaupt nix.
das ist wie bei notepad: die formatierung wird nicht mitgespeichert
(bei mir jedenfalls nicht)


Dann noch viel Glück!


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:00 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