schnelleres StringReplace und MultiStringReplace

[youuu]

   Else If Length(NewPattern) = 1 Then Result := NewPattern[1] Ist rot markiert, was genau übergeben wurde, werde ich nun nach schauen

[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

[youuu]

Himitsu, das wars !

[himitsu]

ach mißt, das läßt sich ja garnicht editieren
(und das fehlende [PRE]-Tag fällt auch auf ... also bezüglich der nicht mehr geparsten Format-Tags )

@Mods: Arbeit für euch > Anhänge dieses Post im ersten Post hochladen

[edit]
Anhänge wurden nun nach Beitrag #1 kopiert, drum lösch ich sie hier mal wieder

[freejay]

Hi himitsu,

danke für diese schnelle StringReplace-Version!

Ich konnte die Dauer in einem Fall von 32 Minuten auf eine knappe Sekunde drücken! Das ist ca. Faktor 2000!

Danke & Gruß

Freejay

[p80286]

@Himitsu

Ich hab eine 25MB große Stringlist.
Ansireplacestring braucht irgendwas um die 30 Minuten, etwas selbstgebasteltes ca 12 und Himitsus irgendwas im 1-5 Sekunden Bereich.

Vielen Dank!

K-H