PosExUltra - Ultimative Stringsuche/Parser

[Ajin]

Hallo!

Ich wollte diese schöne Prozedur mal testen, aber die stringlist ist immer leer.

Delphi-Quellcode:

procedure TFupdate.bsSkinButton4Click(Sender: TObject);
stringlist:Tstringlist;
source:string;
begin
 stringlist := TStringList.Create;
     try
      source := 'blatext xD [url]http://imagexxx.com[/url] und weiter text';
      PosExUltra(source, 'http://', '.com', 'http://', '.com', true, false, stringlist);
      e_ergebnis.Text := stringlist.Text;
    finally
     stringlist.Free;
    end;
end;

Edit: Beim debuggen hab ich festgestellt, das der Integer "Anfang" in der PosExUltra Prozedur immer 0 ist. D.h. angeblich wird mein Suchwort 'http://' nicht gefunden...