Einlesen aus Memo in Editfelder. [Bibliotheksverwaltung]

[Klaus01]

Wie schaut es denn aus wenn Du alles in einer Schleife abfragst?

Delphi-Quellcode:

//Daten einlesen 
//ISBN einlesen... 
     for xx:=0 to M_Import.Lines.Count-1 do 
     begin 
       if (Pos('ISBN',M_Import.Lines.Strings[xx])>0) then 
         E_ISBN.Text := StringReplace(M_Import.Lines.Strings[xx],'ISBN: ', EmptyStr,[rfReplaceAll]) ;
       if (Pos('Titel',M_Import.Lines.Strings[xx])>0) then 
         E_Titel.Text := StringReplace(M_Import.Lines.Strings[xx],'Titel: ', EmptyStr,[rfReplaceAll]) ; 
       if (Pos('Verfasser',M_Import.Lines.Strings[xx])>0) then 
         E_Verfasser.Text := StringReplace(M_Import.Lines.Strings[xx],'Verfasser: ', EmptyStr,[rfReplaceAll]) ; 
     end;  

//Verfasser auch vorhanden.

E_ISBN.Text ist das eine Editfeld?
Das wird bei jedem neuen Fund von ISBN überschrieben.


Grüße
Klaus