Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi TCustomMemo.Lines und Savedialog (https://www.delphipraxis.net/86631-tcustommemo-lines-und-savedialog.html)

force 16. Feb 2007 14:54


TCustomMemo.Lines und Savedialog
 
Hallo
Ich möchte aus einem TMemo den Inhalt in einer txt Datei speichern.
Hierfür hab ich einen Savedialog eingefügt und folgenden code in eine procedure gesetzt:

Delphi-Quellcode:
Memo1.Lines.SaveToFile('C:\.....\test.txt');
In dem fall wird der komplette Inhalt gespeichert. Ich möchte stattdessen gerne, dass nur ganz bestimmte Zeilen aus dem Memo gespeichert werden. Zum Beispiel Zeile 1-4 oder Zeile 1,5 und 7. Ist dies möglich?

Und kann ich nach dem Speichern auch wieder ganz bestimmte Zeilen aus der Txt Datei wieder ins Memo laden? Also, dass nur zum Beispiel Zeile 1,5 und 7 wieder geladen wird.
Danke im vorraus.

Grüße force

Schaedel 16. Feb 2007 15:01

Re: TCustomMemo.Lines und Savedialog
 
hallo,

ok fangen wir hinten an :)
Versuchs ma mit ReadLn um die Zeilen aus zu lesen.


zum speichern

Memo1.Lines.SaveToFile(string)

// edit ...
Sorry nur halb gelesen ..

Writeln ist das Zauberwort :)


Viele Grüße

Schaedel

force 16. Feb 2007 15:08

Re: TCustomMemo.Lines und Savedialog
 
Hallo,
Danke für die Antwort.
Könntest du mir ein Beispiel geben, für das ReadIn.
Habe in der Hilfe nachgeschaut. Viel gibts dazu nicht.

Danke

Grüße force

Schaedel 16. Feb 2007 15:24

Re: TCustomMemo.Lines und Savedialog
 
Delphi-Quellcode:
var
  s : string;
  F: TextFile;

begin
  AssignFile(F, 'c:\test.txt');
  Reset(F);
  while not eof(f) do begin
    Readln(F, S);
    memo1.Lines.add(s);
  end;
    CloseFile(f);
Jetzt musst du nur noch schauen welche Line du nicht haben willst..

force 16. Feb 2007 15:29

Re: TCustomMemo.Lines und Savedialog
 
Danke. Jetzt komm ich klar :wink:


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