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

[S.FATEH]

السلام عليكم

محاولة بنفس الطريقة التي تريدها انت في مثالك....

PHP كود :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  s: string;
  Maxi: Integer;
begin
  s := Edit1.Text;
  if not(Key in ['.', '0'..'9', Char(VK_BACK)]) then Key := #0;
  if key = '.' then
  if Pos('.', s) > 0 then
  key := #0;
  if Pos('.', s) > 0 then
  Maxi := Length(Copy(s, Pos('.', s) + 1, Length(s))) else maxi :=0;
  if (Maxi > 1) and not(key = char(VK_Back))then key := #0;
end;