PosExUltra - Ultimative Stringsuche/Parser

[DeddyH]

Die Übergabe als const ist tatsächlich überflüssig, das hat ja auch niemand in Frage gestellt. Ich mache das ja auch nur deshalb, um gleich anhand der Parameter erkennen zu können, dass die Referenz unveränderlich ist. Das hat nichts mit Optimierung oder dergleichen zu tun, sondern mit dem besseren Verständnis

[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...