Memo1.Text.Length erzeugt "Integer Overflow"

[nahpets]

@Uwe

Wie wäre es denn damit?

Delphi-Quellcode:

function TextLength(sl : TStrings) : Cardinal;
var
  i : Cardinal;
  k : Cardinal;
begin
  Result := 0;
  k      := Length(sLineBreak);
  for i  := 0 to sl.Count - 1 do Inc(Result, Length(sl[i]) + k);
end;