سلام
برای حل مشکل دوست عزیز می شود مراحل را اینگونه بیان کرد:
1- کنترل ورود فقط اعداد
2- کنترل تعداد ارقام
3- کنترل مقدار وارد شده عددی
من کدی که نیاز هست رو با عکس فرم می فریستم ولی باز مشکل اینجاست که اگر کاربر به جای وارد کردن عدد 09 مقدار 9 را بزند برای سیستم قابل شناسایی نیست.
ولی قابل حل است.
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) = 2 then
Edit2.SetFocus;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if (Edit1.Text <> '') And (Length(Edit1.Text) = 2)then
Begin
if (strtoint(Edit1.Text)>50) then
begin
Showmessage('error');
Edit1.SetFocus;
end;
end;
end;
کنترل ورود عدد که ساده می باشد.