Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Stringkonkatenation ist schneller als direktes Kopieren?

  Alt 19. Mär 2008, 20:02
ich würde es mal auf die Stringliste schieben. Folgendes Ergebnis bekomme ich wenn ich in V2 nur die schleife zum zählen der Länge noch drin hab.
Stringkonkatenation: 453
Direktes Einkopieren: 219

Delphi-Quellcode:
Function V2(s: TStringList): Integer;
Var
  l, i, j, n: Integer;
  z, x: String;

Begin
  n := 0;
  For i := 0 To s.count - 1 Do
    inc(n, Length(s[i]));
  result := n;

  {
  SetLength(x, n);
  j := 1;
  For i := 0 To s.count - 1 Do Begin
    z := s[i];
    l := Length(z);
    Move(z[1], x[j], l);
    inc(j, l);
  End;
  Result := Length (x);
}

End;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat