Valider une Valeur

Salut , j'ai un TEdit , ou je veux que la valeur entreé soit seulment une Extension :
Comme ça :
.extension

et ne pas : *.extension ni *.* ni autre seulement le format ( .extension exemple = .doc ou .txt .... etc )


merçi

Une idée :D

Tu mets la propriété MaxLength de ton TEdit à 3 donc l'utilisateur ne pourra entrer + de 3 car et tu rajoutes le . ex:

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button1Click(Sender: TObject); var ext:string; begin ext:='.'+Edit1.Text; showmessage(ext); end;

---

sinon, tu vérifies que le premier caractère saisi soit bien un .:P

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button2Click(Sender: TObject); var ext:string; begin ext:=Edit1.Text; if copy(ext,1,1)<>'.' then showmessage('Ceci n''est pas une extention') else showmessage('Ok'); end;

---

Salutation

Duan

:salut:

Ne pas oublier la fonction ExtractFileExt()

Code:

---

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(ExtractFileExt('Developpez.com')); end;

---