[Memo] Probleme de taille...

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:

---

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.. ..... :boulet:

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:

---

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

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