Memo1.Text.Length erzeugt "Integer Overflow"

[freejay]

Hallo zusammen,

ich kann in einem Programm (64Bit) massiv Daten in ein TSynMemo schreiben (~ 3 Mio. Zeilen á 50-100 Zeichen) ohne dass ein Fehler auftritt. Der Speicherbedarf des Programms ist dann laut TaskManager bei ca. 3GB.

Versuche ich aber die Anzahl der Zeichen zu bestimmen mit Memo1.Text.Length , dann bekomme ich einen "Integer Overflow"-Fehler.

length(Memo1.Text) funktioniert ebenfalls nicht.

Kann mir jemand sagen warum und/oder wie ich alternativ die Anzahl der Zeichen bestimmen kann (außer über eine Loop über alle Zeilen: Das würde viel zu lange dauern...).

Danke im Voraus!

Freejay

[Uwe Raabe]

Was ist mit Memo1.GetTextLen ?

[Neutral General]

Ganz einfach. Die Anzahl der Zeichen ist über 2^31-1 (2GB), Passt also nicht in einen Integer.
Du musst wahrscheinlich selbst zählen mit nem Cardinal oder Int64.

VIELLEICHT kannst du tricksen und folgendes klappt:

Delphi-Quellcode:

var len: Cardinal;
begin
  len := PCardinal(Cardinal(Memo1.Text)-SizeOf(Cardinal))^
end;

Das ist aber getrickst und ich bin mir nicht sicher, ob das bei so großen Strings klappt.

[Uwe Raabe]

Zitat von Neutral General:

Ganz einfach. Die Anzahl der Zeichen ist über 2^31-1 (2GB)

Sicher?

Zitat:

~ 3 Mio. Zeilen á 50-100 Zeichen

sind in etwa 300 Millionen Zeichen, aber noch lange nicht 3000 Millionen.

[Neutral General]

Zitat von Uwe Raabe:

Zitat von Neutral General:

Ganz einfach. Die Anzahl der Zeichen ist über 2^31-1 (2GB)

Sicher?

Zitat:

~ 3 Mio. Zeilen á 50-100 Zeichen

sind in etwa 300 Millionen Zeichen, aber noch lange nicht 3000 Millionen.

Recht hast du Auf der anderen Seite klingt Integer-Overflow aber stark nach einer Länge von über High(Integer).

[SneakyBagels]

Ich werfe einfach mal was anderes in den Raum.
Ich hatte in einem frischen Projekt auch schon den Integer-Overflow-Fehler... beim Create einer TMemIniFile.
Zwar nicht bei 10.1 sondern bei 10.2.

[Uwe Raabe]

Ich sehe gerade, daß es gar nicht um TMemo sondern um TSynMemo geht. Dann ist mein Vorschlag leider nicht gültig. Allerdings würde dann wohl auch ein simples Debugging zur Quelle des Problems führen.

[hoika]

Hallo,
Watchpoint setzen, Wert anzeigen lassen, mit Maxint vergleichen (nicht 4 GB, sondern 2 GB).
Und dann die Sache mit Int64.

Hat das SynMemo keinen Quellcode?

[nahpets]

Zitat von freejay:

(außer über eine Loop über alle Zeilen: Das würde viel zu lange dauern...).

SynMemo hat das Attribut Lines. Das ist vom Typ TStrings. Wenn man sich nun anschaut, wie TStrings an den Inhalt von Text kommt, dann stellt man fest, dass in einer Schleife von 0 bis Count - 1 jede Zeile an einen String angehängt wird.
Hier wurde also bereits einmal zum Ermitteln von Text über die alle Zeilen iteriert.
Damit das Ganze funktioniert wird auch für jede Zeile die Länge des Zeileninhaltes ermittelt.

Kann mir nicht vorstellen, dass ein Iterieren über alle Zeilen und das Summieren der jeweiligen Zeilenlänge länger dauert, als eben eine Aufgabe, die genau dies als Teilmenge enthält.

Der Eigenbau hätte hier dann auch noch den Vorteil, dass man für die Summe einen Typen wählen kann, der ausreichend groß ist.

Da die Länge niemals kleiner 0 sein wird, kann man dann auch direkt einen Typen wählen, der nur positive Werte zulässt.

Zitat von Delphi 7-Sourcen zu TStrings:

Delphi-Quellcode:

...
TStrings = class(TPersistent)
...
property Text: string read GetTextStr write SetTextStr;

Einfach mal in die Quellen von function TStrings.GetTextStr: string; schauen. Bei Delphi 7 wird da mit Integer gearbeitet. Reicht das für die hier genutzten Inhalte des SynMemos aus oder kracht es da bereits intern, so dass eine eigene Typauswahl für das Ergebnis von Length nicht für die Fehlerbehebung ausreicht.

[freejay]

Danke für die bisherigen Antworten. Kann das erst morgen in der Arbeit testen/verifizieren.

In meinen heutigen Versuchen ist es mir nicht gelungen, an den Quelltext von Length() heranzukommen. Angezeigt wurde, dass Length in Unit System definiert ist, ist es aber nicht (oder ich bin blind...). Ich nahm daher an, dass das so eine compilerinterne Geschichte ist. Vielleicht ist in meinen Debug-Settings irgendwas verqueer...