warum wird ein grosser text nicht korrekt durchsucht? 0_o

[xZise]

Ich habe mal eine Frage: Was ist so toll an "exit;"?

Mein ultimativer Vorschlag (xD):

Delphi-Quellcode:

function Between(AStartTag, AEndTag, AText : string) : TStringList;
var
  offset, startPos, endPos : Integer;
begin
  offset := 0;
  Result := TStringList.Create;
  repeat
    startPos := PosEx(AStartTag, AText, offset);
    endPos := PosEx(AEndTag, AText, offset);
    if not((startPos = 0) or (endPos = 0) or (endPos <= startPos)) then
    begin
      Result.Add(Copy(AText, startPos, endPos - startPos));
      offset := endPos;
    end;
  until (startPos = 0) or (endPos = 0) or (endPos <= startPos);
end;

PS: Wer das Case-insensetive machen will baut ein paar LowerCases ein

PPS: HINWEIS: Teilweise sind die Tags nachher drinne Ihr müsstet dann ein bisschen mit Copy spielen.