ดักการใส่ข้อมูลตัวเลขทศนิยม

         ผมคิดว่าเพื่อนๆ บางท่านอาจจะเจอปัญหาลักษณะเดียวกันกับผมอยู่ หวังว่าอาจจะช่วยท่านได้ไม่มากก็น้อยครับ

{Property TEdit}
MaxLeangth = 10
{Property TEdit}

กำหนด MaxLeangth  ที่อยู่ใน TEdit  ค่าที่ใส่ให้ใส่ค่าโดยอ้างอิง Data Type ที่อยู่ใน Database +1 เข้าไปนะครับ เช่น DataType เป็น Decimal(9,2) ก็ให้ใส่ เป็น 10 แทน ที่เป็น 10 นั้นก็เพราะเป็นที่ของ . นั้นเองครับ

{Even OnClick}
      if edtAmount.Text = '' then Exit;
  value := Format('%.2f',[StrToFloat(edtAmount.Text)]);
{Even OnClick}

กำหนด Event ให้กับตัว TEdit เพื่อให้เก็บข้อมูลเดิมไว้

{Even OnExit}
    if edtAmount.Text = '' then Exit;
    edtAmount.Text := Format('%.2n',[StrToFloat(edtAmount.Text)]) ;
    if Length(edtAmount.Text) > 10 then begin
      MessageDlg('ท่านระบุจำนวนเกินกว่าที่กำหนดกรุณาลองใหม่อีกครั้งค่ะ', mtInformation, [mbOK], 0);
      edtAmount.Text := value ;
      Exit;
    end;
{Even OnExit}

กำหนด Event ให้ทำงานเมื่อออกจาก TEdit

สำหรับท่านที่ต้องการดักข้อมูล แต่ตัวเลข สามารถดูได้ตามลิงค์นะครับ http://programmoremore.blogspot.com/2013/10/function-delphi.html