Frage zu TRichEdit

[p80286]

Zitat:

Note:
In code, you can set the value of the Text property to a value that has a length greater than the value specified by the MaxLength property. This property only affects text entered into the control at run time.

Warum auch immer MS diese 64k(?) Beschränkung eingeführt hat, sie greift wohl nur bei der Eingabe über die Oberfläche/Keyboard.

Ich habe mehre Dateien mit mehr als 64k Dateigröße eingelesen, das hat immer funktioniert. Aber es stimmt, manchmal funktioniert die Erkennung der Steuercodes nicht. Habe mich aber nicht näher damit auseinander gesetzt, da ich auch ein Word auf meinem Rechner habe und das hat keine Probleme damit.

Gruß
K-H

[Schwedenbitter]

Zitat von p80286:

Warum auch immer MS diese 64k(?) Beschränkung eingeführt hat, sie greift wohl nur bei der Eingabe über die Oberfläche/Keyboard.

Ich habe mehre Dateien mit mehr als 64k Dateigröße eingelesen, das hat immer funktioniert.

Das deckt sich mit meiner Feststellung, dass ich mit dem TRichEdit 185 MB große Dateien laden kann, hilft mir aber nicht bei der Problemlösung. Ich versuche eben zu ergründen, warum eine Datei gerade noch nur z.B. 78 KB groß war und plötzlich beim Speichern 185 MB groß wird.
Zudem ist mein TRichEdit ReadOnly. Denn es ist ein Verlauf, den der Benutzer eben nicht verändern können soll; jedenfalls nicht mit meinem Programm. Es wird daher nichts über die Tastatur, sondern immer nur über

Delphi-Quellcode:

With RichEdit1 Do
  SelStart:=Length(Text);
  Selattributes.Style:=[fsBold];
  SelText:='Sie schrieben am ... an ...';
  Lines.Append('');
  SelStart:=Length(Text);
  SelAttributes.Style:=[];
  SelText:='Das war/ist Ihr Text.';
  Perform(EM_SCROLLCARET, 0, 0);
End;

etwas hinzugefügt.

Daher nochmal meine Frage:
Wie bestimme ich, wieviel von den 64 KB ein TRichEdit gerade verbraucht? Begründung siehe oben.

Danke und Gruß, Alex

[himitsu]

Delphi-Quellcode:

//if Length(RichEdit1.Text) >= 65536 div SizeOf(Char) then ...
if Length(RichEdit1.Text) >= 32768 then ...

oder 

if Length(RichEdit1.Lines.Text) >= 32768 then ...

jenachdem wo die Format-Informationen mit enthalten sind.

Man könnte auch über SeltStart oder über GetTextLength arbeiten, oder über die entsprechende SendMessage-Message dafür.