Einzelnen Beitrag anzeigen

freejay

Registriert seit: 26. Mai 2004
Ort: Nürnberg
267 Beiträge
 
Delphi 11 Alexandria
 
#19

AW: Memo1.Text.Length erzeugt "Integer Overflow"

  Alt 19. Mai 2017, 10:44
@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;
Im Prinzip mache ich das genau so.
[Delphi 11.3.1 Enterprise; Win10/11; MySQL; VCL]
  Mit Zitat antworten Zitat