Discussion :

[mohfa2001]

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

[Duan]

Une idée

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 :

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

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 .

Code :

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

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

[Droïde Système7]

Ne pas oublier la fonction ExtractFileExt()

Code :

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

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