Test de nullité Delphi

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:

---

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.

oui biensur...

Code:

---

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

Code:

---

If EdtExemle.Text = EmptyStr then

---

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

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.

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

Code:

---

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;

---

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