PosExUltra - Ultimative Stringsuche/Parser

[GPRSNerd]

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