Einzelnen Beitrag anzeigen

soulies

Registriert seit: 9. Dez 2005
234 Beiträge
 
#4

Re: Einlesen aus Memo in Editfelder. [Bibliotheksverwaltung]

  Alt 27. Okt 2008, 12:05
hoi,

den wert kannst du über die zeilennummer auslesen

bsp:
Delphi-Quellcode:
var
   i : Integer ;
begin
   for i:=0 to Memo1.Lines.Count-1 do
   begin
     if (Pos('ISBN',Memo1.Lines.Strings[i])>0) then
        Edit.Text := StringReplace(Memo1.Lines.Strings[i],'ISBN: ', EmptyStr,[rfReplaceAll]) ;
   end;
end;
cya
  Mit Zitat antworten Zitat