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;