Einlesen aus Memo in Editfelder. [Bibliotheksverwaltung]

[DeddyH]

Evtl. sind da noch nicht sichtbare Zeichen im Spiel.

Delphi-Quellcode:

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