So hätte es Sir Thornberry wohl gemacht.
Delphi-Quellcode:
MaxLength := 0;
For i:= Low(FNodes) To High (FNodes) Do
Inc (MaxLength, Length (FNodes[i].ElementList[FNodes[i].IncCount]));
SetLength (Result, MaxLength);
j := 0;
For i := Hight(FNodes) Downto High(FNodes) do begin
sTmp := FNodes[i].ElementList[FNodes[i].IncCount]);
If Length (sTmp)>0 Then Begin
Move (s[1], Result[j], Length (sTmp));
inc (j,Length (sTmp));
End
End;
Das müsste aber eigentlich viel schneller sein, als Deine Methode...
Wie ist den der Getter von 'IncCount'?