Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Memo1.Text.Length erzeugt "Integer Overflow" (https://www.delphipraxis.net/192784-memo1-text-length-erzeugt-integer-overflow.html)

freejay 19. Mai 2017 11:50

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

Zitat von Ydobon (Beitrag 1372032)
Zitat:

Zitat von freejay (Beitrag 1372012)
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 19. Mai 2017 12:33

AW: Memo1.Text.Length erzeugt "Integer Overflow"
 
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 20. Mai 2017 08:52

AW: Memo1.Text.Length erzeugt "Integer Overflow"
 
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. :thumb:


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:42 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz