warum wird ein grosser text nicht korrekt durchsucht? 0_o

[s-off]

Hallo marabu,,

Zitat von marabu:

ihr müsst eure Funktionen auch noch mal testen, bevor ihr sie benutzt:

Delphi-Quellcode:

ShowMessage(Between('m', 'u', 'marabu'));
ShowMessage(Between('m', 'u', 'marab'));
ShowMessage(Between('m', 'u', 'arabu'));
ShowMessage(Between('m', 'u', 'ubaram'));

bis auf das letzte Deiner Beispiele funktioniert meine Funktion doch - und das könnte man noch mittels eines Checks auf Pos1>Pos2 hinbiegen.
Die Abbruchbedingung müsste dann so aussehen:

Delphi-Quellcode:

   If ((iPos1 = 0) Or (iPos2 = 0)) or (iPos1 > iPos2) Then Begin
      Result := 'Tags nicht gefunden';
      Exit
   End;