Memo1.Text.Length erzeugt "Integer Overflow"

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

[Uwe Raabe]

Zitat von freejay:

In meinen heutigen Versuchen ist es mir nicht gelungen, an den Quelltext von Length() heranzukommen.

Length ist wohl auch nur der letzte Schritt. Womöglich kommt der Fehler schon vorher.

[SneakyBagels]

Könnte das hier nicht der Code von Length sein?

Delphi-Quellcode:

function __StringLength(.... // Rückgabewert immer Integer
begin
 Result := PInteger(PByte(S) - 4)^;
end;

Setz doch einfach mal ein paar MessageBoxen einige Zeilen vor und einige nach Length. Irgendwo wird der Fehler dann sein denke ich.

[jaenicke]

Ich frage mich eher was der Sinn ist. 3 Millionen Zeilen kann doch niemand jemals lesen. Bist du sicher, dass ein TSynMemo hier sinnvoll ist?

[nahpets]

Interessant ist in dem Zusammenhang auch, dass für die Datenmenge 3 GB benötigt werden.
Das erscheint mir irgendwie deutlich zuviel zu sein.
3.000.000 Zeilen * 100 Zeichen = 300.000.000 Zeichen

3 GB ist irgendwie deutlich mehr.

TSynMemo liefert doch eine Syntaxhervorhebung. Wird die benötigt?

Was ist eigentlich die ursprüngliche Aufgabenstellung, für die die Anzahl der Zeichen ermittelt werden soll? Eventuell gibt es ja 'ne andere Zählmöglichkeit.

[himitsu]

100 Zeichen á 2 Byte
und dann noch die Speicherfragmentierung, wenn man jede Zeile einzeln speichert.

TMemo ist auch nicht besser, denn da wird das in einem Speicherblock abgelegt und man braucht das GB auch an einem Stück, was unter 32 Bit praktisch nahezu unmöglich ist, selber mit aktiver 3 oder 4 GB-Erweiterung.



Allerdings könnte man sich auch fast fragen, warum überhaupt alle Zeilen unbedingt gleichzeitig in den Speicher müssen.
Will sich das wirklich jemand ALLES ansehn?

Entweder die Daten filtern und nur eine menschenlesbare Menge anzeigen,
oder es gibt auch Edits, die nur den jeweils grade sichtbaren Teil laden.