[Optimiert] Explode Prozedur - Reloaded (Ersatz für CodeLib)

[alzaimar]

Hi!
Ich hab mir mal die Mühe gemacht, und eine alternative Explode-Funktion implementiert, die wohl doch etwas schneller ist, als die hier in der Code-Library hinterlegte Version.

Ich möchte Euch bitten, den Code zu testen und auch zu optimieren. Wenn wir damit durch sind, sollte diese Version in die Code-Library übernommen werden, bzw die jetzige Version ersetzen.

Details über die Herleitung (na ja, Recherche und Kopieren ) steht im Code.

[Edit] Unten genannte Tests sowie Zeitmessung eingearbeitet: Es ist ein komplettes Projekt mit Funktions- und Speed-Test. Bitte versucht, Teile davon zu optimieren (ASM, Pointer arithmetic etc.). [/edit]

History:
12.12. Version 1.1: Erste schwere Fehler ausgebaut: Strings am Ende wurden falsch bzw. gar nicht erkannt.
13.12. Version 1.2: Kleiner Fehler in der Prepare-Methode: (Hilfsvariable als Cardinal deklariert, bei Zuweisung <0 ignoriert), Facelifting auf Anregung von Elvis (Feld- und Variablennomenklatur). Ferner ist eine Test-Iterator-Basisklasse sowie ein Iterator für Char-Delimiter (z.B. für CSV) implementiert.
14.12 Version 1.3: Iterator für QS-Search implementier. Die Test-Routine wurde um Zeitmessungen für den Iterator sowie die Code-Library ergänzt.
23.12.07 Version 1.4: Beseitigt seltenen Bereichsüberlauf am Ende eines Strings.

Diese Version ist zwischen 4 und 1000x schneller als die Version aus der Code-Library.

[moonwhaler]

Erstmal ein dickes Dankeschön! Dieses Teil ist absolut genial! Eine Frage / Bitte habe ich aber noch: Ich muss häufig mit Unicode-Strings (WideString) arbeiten, leider funktioniert die aktuelle Version aber damit nicht. Das mag natürlich auch daran liegen, dass man die Ansi-String Version von TStringList verwendet (ich selbst hab mein komplettes Programm mittlerweile auf WideString und TTntStringList umgebaut).

Ein erster Versuch den Code in Richtung WideString zu portieren hat zwar (augenscheinlich) geklappt, jedoch ist er mit bösen Exceptions rausgeflogen (PWideChar, statt PChar usw.). Ist es möglich mir bei einer solchen Implementierung zu helfen, oder gibt es gar bereits eine solche?

Vielen Dank!
Christian

[SubData]

Wenn der Divider mit einem leeren String aufgerufen wird, gibt es eine Zugriffsverletzung.

[himitsu]

hab mal ein paar Probleme bezüglich Unicode versucht zu beheben
ist allerdings noch nicht getestet
(und 'nen Codeformatter ist mal drübergerauscht ... dort drinnen mischten sich vorher mehrer Styles)

Grund: http://www.delphipraxis.net/internal...106505#1106505

als Quelle wurde die Unit aus Beitrag #1 genommen

Zitat von himitsu:

PChar nach Länge für Copy wurde nicht halbiert ... siehe deine Ergebnisse
Länge für CompareMem wurde nicht verdoppelt, welches in falschen Vergleichen enden könnte.

[Z4ppy]

Delphi 7 meldet mir:

Zitat:

[Warning] csExplode.pas(397): Return value of function 'TMultiCharPatternStringDivideIterator.MoveNext' might be undefined

MfG Z4ppy

[alzaimar]

Ja. Und? Woran könnte das liegen?

[Z4ppy]

Vielleicht daran, dass der Rückgabewert nicht sofort initialisiert wird sondern erst im if
Aber da ich nicht weiss, was diese Funktion macht (ich habs aber auch nicht versucht herauszufinden), habe ich da nicht daran rumgefummelt...

MfG Z4ppy

[DeddyH]

Ich habe die Funktion jetzt nicht in ihrer ganzen Logik erfasst, aber man müsste sie so umschreiben können:

Zitat:

Delphi-Quellcode:

      If fEndOfText Then
        Result := False
      Else
        begin
          ...
        end;

wird zu:

Delphi-Quellcode:

Result := False;
      If not fEndOfText Then
        begin
          ...
        end;

[Christian Seehase]

Moin Detlef,

IMHO sollte man Result erst möglichst spät verwenden, da man ansonsten das (E)AX-Register früh blockiert. Also Folge wäre der resultierende Code dann nicht so gut optimierbar.
Je nach Anwendungsfall kann sich das auf die Performance auswirken.

[himitsu]

Delphi lagert Result (falls es wirklich in EAX oder EAX+EDX zurückgegeben wird) notfalls auf ein anderes Register oder den Stack aus ... blockiert wird also nichts.

[ot] aber schön dich mal wieder aktiver zu sehn

[Z4ppy]

DeddyH:
Vielleicht aber auch:

Delphi-Quellcode:

      If fEndOfText Then
        Result := False
      Else
        begin
Result:=True;
          ...
        end;

Auf Zeile 332 ist übrigens eine Funktion einer anderen Kompo mit gleichem Namen so geschrieben.

MfG Z4ppy