Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#5

Re: array of string und die Performance-Schraube

  Alt 18. Mär 2008, 18:09
Zitat von Meflin:
Im Moment verlangsamt o.g. Ansatz den Vorgang ca. um den Faktor 50
Fallst Du mit 'o.g.Ansatz' das meinst, was Christian vorgeschlagen hat, dann hast Du was falsch gemacht.

Die werden vorne immer rangebepselt? Hmm.
Delphi-Quellcode:
// 1. Maximal mögliche Länge ausrechnen
MaxLength := (High(FNodes) - Low(FNodes) + 1)*MaxLengthOfElementList;
SetLength (Result, MaxLength);
// 2. Das Zeugs am Ende von Result beginnend nach vorne auffüllen
j := MaxLength+1;
for i := Low(FNodes) to High(FNodes) do begin
  // Einzufügenden String holen
  sTmp := FNodes[i].ElementList[FNodes[i].IncCount];
  If Length (sTmp)>0 Then Begin // wenn der nicht leer ist
    // Einfügeposition nach vorne schieben
    dec (j,Length (sTmp));
    // String vorne ranbepseln
    Move (s[1], Result[j], Length (sTmp));
  End
End;
// Wenn wir noch nicht vorne angekommen sind, verschieben wir unser Resultat an Position 1.
If j>1 Then Begin
  Dec (MaxLength, j-1); // Länge anpassen
  Move (Result[j], Result[1], MaxLength); // Verschieben
End;

SetLength (Result, MaxLength); // Fertig.
Ungetestet, vielleicht die üblichen +/-1 Fehler. Sollte aber weeesentlich schneller sein.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat