Einzelnen Beitrag anzeigen

Teekeks

Registriert seit: 19. Okt 2008
Ort: Dresden
765 Beiträge
 
FreePascal / Lazarus
 
#7

Re: Einlesen aus Memo in Editfelder. [Bibliotheksverwaltung]

  Alt 27. Okt 2008, 13:45
was ich noch nicht versteh ist:
wen ich das hier als code hab:
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]) ; //mal gucken was das macht...(von DB!)
     end; //funkt!!! supper!
 //ISBN ist da!
 //Titel einlesen...
     for xx:=0 to M_Import.Lines.Count-1 do
     begin
       if (Pos('Titel',M_Import.Lines.Strings[xx])>0) then
        E_Titel.Text := StringReplace(M_Import.Lines.Strings[xx],'Titel: ', EmptyStr,[rfReplaceAll]) ; //das hier wird eingetragen alles andere nich :-(
     end;
 //Titel ist auch da!
 //Verfasser...
     for xx:=0 to M_Import.Lines.Count-1 do
     begin
       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.
Danm wird nur der Titel eingelesen... WARUM??
Peter
  Mit Zitat antworten Zitat