Suchen, vergleichen

[Jens Hartmann]

Sorry, ja da hast Du recht, da fehlte ja auch was...

Delphi-Quellcode:

var 
  iPos : integer; 
  Text : String;
begin 
... 
  Text := MyString;
  while Pos('Suchetext', Text) > 0 do 
    begin 
      iPos := Pos('Suchtext', Text);  
      ShowMessage(IntToStr(iPos)); 
      Delete(Text,1,iPos+1);
    end;

Gruß Jens