Discussion :

[NoisetteProd]

J'ai un programme qui doit donner en permance un etat, je veux en garder de visible une vingtaine....
J'ecris dans un memo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Memo1.Lines.Add(xxx);

le probleme est que (et je n'y avais pas pensé...) le texte du memo grossi meme si je n'en voit que 20 lignes... et la place en memoire aussi.... Pour un prog qui doit se faire tout petit... dur dur...

Comment est ce que je peux faire pour limiter ce que j'appelerais le cache du memo a 20 lignes ??

Merci de m'aider sur cette question un peu c.. .....

[Pierre Castelain]

Je dirais que la solution la plus simple est de faire une petite procédure qui se charge de limiter la taille du mémo à n lignes. Ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
procedure LogThis(AMemo: TMemo; Text: string; MaxLineCount : Integer = 20);
begin
  while AMemo.Lines.Count >= MaxLineCount do
    AMemo.Lines.Delete(0);
  AMemo.Lines.Add(Text);
end;
 
...
  LogThis(Memo1, 'Hello world!');
...

On peut également dériver une nouvelle classe à partir de TMemo qui prend en charge ce mécanisme (une propriété pour le nombre max de lignes et une méthode d'ajout de ligne).

[NoisetteProd]

Merci Pierre, tu avais les idées plus clair que moi hier soir....