edit fotmat?

[Delphilearner]

hello

how can i change edit to this format 00154

i mean when i enter a number like 154 it will be 00154
thank you in advence

[Bart]

At what time should this transfromation happen?

Bart

[Graeme]

You could probably do it with TEdit's OnExit event, then use Format() to change the formatting. Alternatively, TSpinEdit could possibly do the trick to, or the TMaskEdit.

[Delphilearner]

At what time should this transfromation happen?

Bart

thank you for your reply

i want it --> onchange

You could probably do it with TEdit's OnExit event, then use Format() to change the formatting. Alternatively, TSpinEdit could possibly do the trick to, or the TMaskEdit.

how can i do it i want an example

[Blaazen]

I recommend you OnEditingDone, change will be done when you press Enter inside Edit or when Edit will lost focus (Tab key or mouse).

Code: Pascal  [Select][+][-]

1. procedure TForm1.Edit1EditingDone(Sender: TObject);
2. begin
3.   Edit1.Text:=Format('%.5d', [strtoint(Edit1.Text)]);
4. end;

[wp]

I would not do it in OnChange because you will have a very hard time entering or editing a text becauses with every key input the missing zeros will be added and you have to be very careful to keep track of the cursor.

OnExit or OnEditingDone work much better, in my opinon; here the zeros are added whenever the edit loses focus. And I personally would prefer to edit the unmodified text. Therefore the OnEnter event should remove the added zeros again:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Edit1Enter(Sender: TObject);
2. var
3.   s: String;
4. begin
5.   s := Edit1.Text;
6.   while (Length(s) > 0) and (s[1] = '0') do
7.     Delete(s, 1, 1);
8.   Edit1.Text := s;
9.   Edit1.SelectAll;
10. end;
11.  
12. procedure TForm1.Edit1Exit(Sender: TObject);
13. var
14.   s: String;
15. begin
16.   s := Edit1.Text;
17.   while (Length(s) < 6) do s := '0' + s;
18.   Edit1.Text := s;
19. end;

[Bart]

... or the TMaskEdit.

Take a TMaskEdit with EditMask := '00000;0;0'.
Then, when you need the content, do not use Text property, but EditText property.
It will always consist of 5 numbers, and the user cannot delete the zero's.

Bart