schnelleres StringReplace und MultiStringReplace

[himitsu]

joar, da stimmt was nicht.
tausch mal die 1 gegen eine 0 aus Result := NewPattern[0] [edit]
oder besser so ... ich denk mal das wäre logischer, wenn der Letzte, anstatt der erste Eintrag genutzt würde.

Delphi-Quellcode:

Function GetNewPatt(i: Integer): String;
  Begin
    If i < Length(NewPattern) Then Result := NewPattern[i]
    Else If Length(NewPattern) > 0 Then Result := NewPattern[High(NewPattern)]
    Else Result := '';
  End;

ich tausche die Anhänge auch gleich aus