schnelleres StringReplace und MultiStringReplace

[youuu]

Hi, ich verwende deine Stringreplace Routine, allerdings erhalte ich einen Fehler hier:

Delphi-Quellcode:

  Function StringReplaceX(Const S: String; Const OldPattern, NewPattern: Array of String; Flags: TReplaceFlags = []): String;
    Function GetNewPatt(i: Integer): String;
      Begin
        If i < Length(NewPattern) Then Result := NewPattern[i]
        Else If Length(NewPattern) = 1 Then Result := NewPattern[1]
        Else Result := '';
      End;

Fehlermeldung: Erste Gelegenheit für Exception bei $75F89617. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 75F89F11 in Modul 'KERNELBASE.dll'. Lesen von Adresse 00C81000'.

Wenn ich die Exception abfange, rennt er mit OutOfMemory