Escape sequenzen ersetzen

[himitsu]

Was soll bitte dieses böse leere Except-End da im Code?
Und ja, ich weiß weshalb, aber halt warum, denn StrToIntDef oder TryStrToInt.

PS: Versuch mal abc<32>def<60>ghi zu deescapen.

Delphi-Quellcode:

p1:=1;
p2:=1;
p1:= PosExW('<',AInputString,p1);
p2:= PosExW('>',AInputString,p2);
if (p1>0) and (p2>0) and (p2>p1+1) then begin

kürzer

Delphi-Quellcode:

p1:= PosExW('<',AInputString,1);
p2:= PosExW('>',AInputString,1);
if (p1>0) and (p2>0) and (p2>p1+1) then begin

noch kürzer

Delphi-Quellcode:

p1:= PosW('<',AInputString);
p2:= PosW('>',AInputString);
if (p1>0) and (p2>0) and (p2>p1+1) then begin

aber eigentlich

Delphi-Quellcode:

p1:= PosW('<',AInputString);  // PosExW('<',AInputString,1);
p2:= PosExW('>',AInputString,p1{+1});
if (p1>0) and (p2>0) then begin