دریافت عدد

[منتظر283]

چه طور می شه کاری کرد که یه text فقط عدد دریافت کنه؟

[disappear]

هم می تونی از کامپوننت استفاده کنی هم کد بنویسی .
1- می تونی از مانپوننتهای آماده که هست استفاده کنی مثل SuiNumberEdit ماله پکیج SuiPack , ...
2- می تونی در OnkeyPress کلیدهای دریافتی رو محدود کنی .

If Not( Key in ['0'..'9',#8,'.']) then
Begin
Key := #0;
// Enter Your Code
end;

[MiRHaDi]

سلام


In not(key in ['0'..'9',#0..#31] then
key := #0
else
//enter code here

بای

[mzjahromi]

یه چیزی تو این مایه ها.


Procedure Edit1Change(Sender:TObject);
var
s,s1:string;
i,t:Integer;
Begin
t:=TEdit(Sender).SelStart;
s:=TEdit(Sender).Text;
for i:=1 To Length(S) do
If s[i] in ['0'..'9','.'] then
s1:=s1+s[i];
TEdit(Sender).Text:=s1;
TEdit(Sender).SelStart:=T;
End;

مزیتش نسبت به کدهای قبلی اینه که با Copy/Paste هم نمیشه کاری کرد.

[babak869]

چند بار پرسیده شده و جوابهای کاملی داده شده لطفا قبل از پرسش جستجو بفرمایید