[Delphi] Meer data in een richedit

Pagina: 1
Acties:

  • Parcye
  • Registratie: Maart 2001
  • Laatst online: 24-08-2017
Ik heb een log optie in me programma zitten en om dit overzichtelijk te doen heb ik een RichEdit gebruikt en gebruik kleuren en text styles om verschillen te onderscheiden.

Nu ben ik echter tijdje aan het werken en kom ik in eens achter een 64kb limit van data bij een richtedit.

Nu denk je, MaxLenght = 0 dus oneindig.... moet kunnen echter is 0 dus 64kb.

Na wat zoeken kom ik het volgende tegen:
Delphi:
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  RichEdit11.MaxLength := $7FFFFFF0; 
end;  

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SendMessage(RichEdit1.Handle, EM_EXLIMITTEXT, 0, $7FFFFFF0); 
end; 


De onderste optie werkt alleen niet want kan bij mij EM_EXLIMITTEXT niet...

Maar als ik nar de output kijk, wordt er nog wel dat geschreven naar de RichEdit met succes
Text output:
1
2
3
4
Error: RichEdit line insertion error
Client closed
Vars deleted
Read to close program 


Verder vraag ik ook af hoe je kan scrollen zodat je laatste regel ook de laatste regel in beeld is.

"Als je het kan bedenken, kan het gemaakt worden" Parcye - 14 januari 2002


  • FendtVario
  • Registratie: Januari 2002
  • Laatst online: 12-05-2025

FendtVario

The leader drives Vario!

Had die maximale grootte van niet maken met het besturingssysteem dat je gebruikt. In Windows 9x was er een maximale grootte van inderdaad 64Kb. Dacht dat dit in Windows ME/2000/XP niet meer was. Ben nu niet thuis dus kan het niet voor je controleren.

Misschien dit het antwoord op je eerste vraag: http://www.experts-exchan...uages/OWL/Q_11901998.html

www.fendt.com | Nikon D7100 | PS5


  • LordLarry
  • Registratie: Juli 2001
  • Niet online

LordLarry

Aut disce aut discede

2Gb is de maximale lengte onder 95. Als je MaxLength op 0 zet is het 64kb, maar het verhogen van MaxLength maakt dat ook hoger. Beide stukjes code zouden hetzelfde effect moeten hebben. Maar aangezien je dat ook zelf had gevonden snap ik je vraag niet helemaal. En als de bovenste code wel werkt, waarom je dan drukmaken dat de onderste niet werkt?

We adore chaos because we like to restore order - M.C. Escher


  • Parcye
  • Registratie: Maart 2001
  • Laatst online: 24-08-2017
ze werken beiden niet

Ik krijg bij 64kb toch de error,...

"Als je het kan bedenken, kan het gemaakt worden" Parcye - 14 januari 2002