1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23:
| var temptxt:string; endpos,x:integer; begin temptxt:=daten; {daten is der string der ständig erweitert/gekürzt wird} if (pos(suchbegriff,temptxt) > 1) AND (pos(bistaste,temptxt) > 2) then begin if VorkommDerTaste = 1 then begin Form1.Memo1.Text:=Form1.Memo1.Text+temptxt+#13+#10; end else begin endpos:=pos(bistaste,temptxt); for x:=VorkommDerTaste downto 0 do begin if (pos(bistaste,copy(temptxt,pos(bistaste,temptxt),(length(temptxt)-pos(bistaste,temptxt)))) > 3) then endpos:=endpos+pos(bistaste,copy(temptxt,pos(bistaste,temptxt),(length(temptxt)-pos(bistaste,temptxt)))); end; if endpos>pos(bistaste,temptxt) then Form1.Memo1.Text:=Form1.Memo1.Text+copy(temptxt,(pos(suchbegriff,temptxt)+vonpos),(pos(bistaste,temptxt)-(pos(suchbegriff,temptxt)+vonpos)))+#13+#10 end; end;
end; |