Discussion :

[sys1]

J'ai dans mon programme un RichEdit1. J'aimerais tester son contenu pour le cas où il est vide.
En gros, il me faudrait une instruction du style :

if (Form2.RichEdit1='') then RichEdit_vide:=1;

[Droïde Système7]

Bonjour !

Tu peux t'inspirer d'un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
...
var
   RichEdit_Vide: Boolean;
begin
   ...
   if (Form2.RichEdit1.Lines.Count = 0) then  
    RichEdit_vide := true;
...

Code non testé, attention j'ai fait passer ton "RichEdit_Vide" en boolean et non en integer.

@+

[Gilbert Geyer]

Bonjour,

Tu peux aussi tester si la propriété Text est vide :

Code :

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

 if Form2.RichEdit1.Text = '' then ShowMessage('RichEdit1 est vide');

A+