Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by alzaimar,
21. Feb 2010
So, ich hab mich auch mal versucht und kurz getestet.
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=0 then exit;
PrefixLength := Length (aPrefix);
Repeat
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by alzaimar,
21. Feb 2010
Das ist eine nette Funktion. Nenne sie doch lieber
Function PosEierlegendeWollmilchSau
Der Zusatz 'Ultra' erinnert so an Waschmittel.
Im Ernst: Was kann die Funktion, was ein TRegExpr nicht kann?