Einzelnen Beitrag anzeigen

Portfreak

Registriert seit: 19. Nov 2010
19 Beiträge
 
#6

AW: Mehrere Memos in einer Datei Speichern

  Alt 20. Nov 2010, 21:09
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!!
  Mit Zitat antworten Zitat