عدم السماح بادخال اكثر من رقمين بعد الفاصلة

[justnick]

جرب هذا الكود

PHP كود :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not CharInSet(key,['0'..'9','.',#8]) then
   Key:=#0;
   if (pos('.',Edit1.Text) > 0 ) and (length(Edit1.Text) - pos('.',Edit1.Text) > 1)
   and not( CharInSet(key,[#8]))
    then
       Key := #0;
end; 


اذا ارت ان تمنع المستخدم من ان يكتب الكثر من فاصلة واحدة اضف الكود التالى

PHP كود :

if CharInSet(Key,['.'])and( pos('.',Edit1.Text) > 0) then  key:=#0;