Discussion :

[sky88]

comment ecrire les chiffres dans un TEdit sur 4 caractere c'est à dire
(0001,0002 et aisi de suite)
je veux quand j'incremente le nombre sera ecrit toujour sur 4 caracteres
merci

[Andry]

Salut
- Soit tu gère les évènements (OnChange ou OnkeyDown, a tester) et formater l'affichage.
- Soit tu utilise un TMaskEdit et paramétrer le mask

A+

[popo]

Code :

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

1
2
3
4
5
6
Procedure Edit1.OnChange(Sender : TObject)
var Txt : string;
begin
  Txt := Edit1.Text;
  Edit1.Text := Format('%.4d',[Txt]);
end;