Mehrere Memos in einer Datei Speichern

[himitsu]

oder eine spezielle Zeile einfügen, woran man die Texte wieder trennen kann.

Also jeweils ein Memo.Lines mit .AddStrings zu einer StringListe hinzufügen, dann über .Add eine Kennzeile (eine Zeile/Wörter, welche es sonst nicht gibt) anhängen und nun weitere Memos dran.
Beim Auslesen nun Anhand dieser Zeile(n) die Stringliste wieder auf die Memos aufteilen.

[Portfreak]

Vielen Dank für die Antworten!

Mittlerweile hab ich's geschafft die Inhalte der Memofelder 1-3 in eine *.txt zu speichern.

Delphi-Quellcode:

procedure TRechner.BtSaveClick(Sender: TObject);
 var
   myFile : TextFile;
   text   : string;
begin
   AssignFile(myFile, EdFileName.Text);
   ReWrite(myFile);

//Memo1
   Write(myFile,'Memo1Anfang', '');
   WriteLn(myFile);

   Write(myFile, Memo1.Text, '  ');
   Write(myFile,'Memo1Ende', '');
   WriteLn(myFile);
   WriteLn(myFile);

//Memo2
   Write(myFile, 'Memo2Anfang', '');
   WriteLn(myFile);
 
   Write(myFile, Memo2.Text,'  ');
   Write(myFile,'Memo2Ende', '');
   WriteLn(myFile);
   WriteLn(myFile);

//Memo3
   Write(myFile, 'Memo3Anfang', '');
   WriteLn(myFile);
   Write(myFile, Memo3.Text,'  ');
   Write(myFile,'Memo3Ende', '');
   WriteLn(myFile);
 
    CloseFile(myFile);
 
   Reset(myFile);

   while not Eof(myFile) do
   begin
     ReadLn(myFile, text);
   end;

   CloseFile(myFile);
 end;

Dadurch konnte ich eine geordnete struktur beim speichern herstellen die so ausssah

Zitat:

Memo1Anfang
Feld1
Feld2
Memo1Ende

Memo2Anfang
Feld3
Feld4
Memo2Ende

Memo3Anfang
Feld5
Feld6
Memo3Ende

Jetzt bin ich am grübbeln wie man nun diese Werte wieder in die Memofelder LADEN kann. Ich hab da echt Null plan :S...
Irgendwie soll das programm die Werte zuordnen können.

Brauche nochmals eure hilfe !
Danke!!

[Bummi]

wenn Du schon so angefangen hast,
in einem Loop readln und Ziel.add wenn Ziel<>nil
wenn Du eine Anfangmarke findenst, Ziel=Zielmemo
wenn Du eine EndeMarke findest Ziel=nil

[Portfreak]

Danke!!

Nurnoch eine unverschämte bitte ^^": Ich bräuchte eine kleine starthilfe in sachen eines loops in verbindung mit dem einlesen.

Hihi... ^^"

[Bummi]

am Ende von Posting #6 machst Du es doch schon...

[Sir Rufo]

Zitat von Bummi:

am Ende von Posting #6 machst Du es doch schon...

"...denn sie wissen nicht was sie tun..."

[wolfgang_SV]

Zitat:

"...denn sie wissen nicht was sie tun..."

irgendwie hast du hier mal recht..

[Portfreak]

Soweit fuktioniert alles danke. Allerdings Meldet mir das programm einen Fehler sobald ich die datei laden möchte.

Zitat:

Im Project Project1.exe ist eine Exception der Klasse EReadError aufgetreten. Meldung: 'Ungültiges Stream-Format'...

HAb versucht zu schauen wo es liegt aber ich finde leider nichts


EDIT:
Hab den Eintrag ", FILE_SIG" in der Button2 Prozedur entfernt und schon funktioniert ist. Wofür ist die FILE_SIG notwendig??