Memo1.Text.Length erzeugt "Integer Overflow"

[freejay]

Zitat von Ydobon:

Zitat von freejay:

ABER: Ich hab's trotzdem ausprobiert und es dauert auch bei 3 Mio Zeilen nur den Bruchteil einer Sekunde!

Damit ist also mein Problem gelöst.

Und welche Größe ergibt sich nun?

Wie ich schon oben "schrub": Etwa 1,3 G also ca. 1,4 Milliarden

[himitsu]

also fast 3G

Delphi-Quellcode:

Result := 0;
for i := 0 to SL.Count - 1 do
  Inc(Result, (Length(SL[i]) + LB) * SizeOf(Char));

Result := 0;
for S in SL do
  Inc(Result, (Length(S) + LB) * SizeOf(Char));

Result := 0;
for S in SL do
  Inc(Result, Length(S));
Result := (SL.Count * Length(sLineBreak) + Result) * SizeOf(Char); // (SL.Count-1) ... wenn kein Zeilenumbruch nach der letzten Zeile, aber die 2 Byte ...

[SneakyBagels]

Zitat:

Wie ich schon oben "schrub": Etwa 1,3 G also ca. 1,4 Milliarden

Es heißt schrieb. Das Wort schrub gibt es nicht.