Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by GPRSNerd,
10. Jun 2010
Bin gerade mal Step-by-Step da durchgegangen mit deinem Beispiel mit 123Wort:
i=8
Length(S)=7
i2=7
i4=0
Der Knall kommt dann vom S=S bei einem String mit 7 Zeichen.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by GPRSNerd,
10. Jun 2010
Ich benutze "natürlich" die v1.1.
Wenn ich die Move-Zeile mit einer If-Abfrage auf i4<>0 ändere, geht alles gut:
if i4<>0 then Move(S, Result, i4 * SizeOf(Char));
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by GPRSNerd,
10. Jun 2010
Steht doch oben als Delphi Code!
Ich benutze Delphi 2010 und du?
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by GPRSNerd,
22. Nov 2009
Hi himitsu,
das neue Flag funktioniert einwandfrei! Jetzt ist es ein vollwertiger Ersatz für das originale StringReplace.
Danke,
Stefan
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by GPRSNerd,
21. Nov 2009
Hallo himitsu,
folgender Test der Funktion schlägt fehl:
dummy:='Text Old1 Old2 old1 old2 Old1 Old2 old1 old2 Text';
//Ohne Flags = Nur die ersten Funde und Case Sensitive
ergebnis := StringReplaceX(dummy, , , );
Memo.Lines.Add('StringReplaceX('+dummy+', , , ): '+crlf+
' '+ergebnis);