Hallo omata,
da hat sich ein kleiner Copy&Paste-Fehler in der 2. Procedure versteckt:
In
Delphi-Quellcode:
procedure ExtractBetween(const aSource, aPrefix, aSuffix : string;
aFindAll : Boolean; aNewPrefix, aNewSuffix : string;
aWords : TStrings);
var
PrefixLength, PosPrefix, PosSuffix, BestPos : Integer;
begin
PosPrefix := PosEx(aPrefix, aSource, 1);
if PosPrefix > then begin
sollte die letzte Zeile wohl so lauten:
if PosPrefix > 0 then begin
Gruß,
Stefan