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