Discussion :

[Gig_Gig]

Bonjour,
bon j'ai beau chercher sur le forum je trouve pas.
Pour teste qu'un edit est null ou non en général je fais comme ça

Code :

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

1
2
 
 If EdtExemle.Text = '' then

Je voulais savoir si il y une façon plus élégante de le faire.
(Comme en php avec IsNull)
Merci d'avance.

[Kaféine]

oui biensur...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function IsNull(edt: TEdit): Boolean;
begin
  Result := edt.Text = '';
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  if IsNull(MonEdit) then 
    Showmessage('Null')
  else
    Showmessage('pas null');
end;

heu ok c'etait de l'humour (pourri oui je sais...)

[defluc]

Code :

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

If EdtExemle.Text = EmptyStr then

[philnext]

Disons que un .text n'est jamais nul. Vide peut être, nul jamais.

[sjrd]

Non, il n'y a aucun moyen plus "élégant". C'est le moyen le plus clair et le plus efficace en matière d'exécution, puisque je parie que le compilo l'optimise à mort en vérifier directement la longue de la chaîne.

[aityahia]

Comme sa aussi on le choix de prendre les blanc en évidence ou pas

Code :

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

1
2
3
4
5
6
7
Function IsNull(edt: TEdit;CountBlank:Boolean): Boolean;
begin
if CountBlank  Then
   Result := edt.Text = ''
 else
   Result := Trim(edt.Text) = '';
end;

[Gig_Gig]

Ok merci pour toutes ces réponses.
Ba si c'est le moyen le plus efficace ba je vais continuer comme ça alors...