[Linux] Connaître le nombre de caractères dans un TEdit

Bonjour
J'ai recherché dans le forum mais sans succès,
J'aimerai dans un Edit que dès que le nombre de caractère arrive a 4 le focus pointe vers un deuxième Edit,
Sous BCB6 on faisait comme cela:

Code:

---

1 2 3 4 5

if(Edit1->Text->Length==4) { Edit2->SetFocus; }

---

Sous Lazarus il y a rien après Edit.Text
Comment arriver a Edit.Text.Length==4

Merci A+

Code:

---

1 2	if Length(Edit1.Text) = 4 then

---

Merci et une fois de plus batyann811, c'est toi qui me sauve :ccool:

je travailler sur ceci, j'en étais loin vu le code que tu ma donné:

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm.Edit1Change(Sender: TObject); var nb : Integer;   begin nb:=4; if(Edit1.Text < nb) then Edit2.SetFocus; end;

---

Merci mille fois batyann811 :ccool: :ccool: :ccool: