Memo1.Text.Length erzeugt "Integer Overflow"

[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 ...