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

[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