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;