Dein Problem lässt sich allgemein, wenn ich es richtig erkenne, wie folgt beschreiben:
Code:
Gib genau den Teil eines Strings zurück, der durch bestimmte Kriterien eingegrenzt ist.
Um diese Grenzen gemäß Deiner Kriterien zu ermitteln, verwendest Du allerdings recht rechenintensive Stringoperationen wie "Konkatenation", "Löschen von Zeichen", ...
Versuche stattdessen die Kriterien zu überprüfen, ohne die Strings zu verändern (zB über die Zeichenpositionen innerhalb des Strings), so dass folgender Pseudo-Code schneller zum Ergebnis führt:
Delphi-Quellcode:
function CalcBoundInStringStartingAt(const AString: string;
const AStart: Index; ...): Integer;
begin
Result := AStart;
while Result<Length(AString) and not DoesCriteriaMatch(...) do
Inc(Result);
end;
function GetTok(const AString: string; ...): string;
var
myLowerBound: Integer;
myUpperBound: Integer;
begin
myLowerBound := CalcBoundInStringStartingAt(AString, 1, ...);
myUpperBound := CalcBoundInStringStartingAt(AString, Succ(myLowerBound), ...);
UseBoundsToObtainResult(AString, myLowerBound, myUpperBound);
end;
Zu beachten sind selbstverstädnlich die Grenzfällen, bei denen die Kriterien nicht erfüllt sind, etc.