1 Topic by prahousefamily (edited by prahousefamily 2017-08-22 12:01:24)

  • Registered: 2014-02-17
  • Posts: 365

Topic: How To Cal On Text Change

How Edit Script To Text Change

procedure frm_inout_Edit3_OnChange (Sender: string);
begin
        try
        frm_inout.Edit4.Text := IntToStr(StrToInt(frm_inout.Edit3.Text)*StrToInt(frm_drugitem.Edit7.Text));
        except
        frm_inout.Edit4.Text := '';
        end ;                     
end;

or ???

Help me Please !

My Visual Database : I Love You
Easy For Beginner Student For Me
  • Registered: 2014-02-14
  • Posts: 10,294

Re: How To Cal On Text Change

fixed code:

procedure frm_inout_Edit3_OnChange (Sender: string);
begin
    if ValidInt(frm_inout.Edit3.Text) and ValidFloat(frm_drugitem.Edit7.Text) then
        frm_inout.Edit4.Text := FloatToStr( StrToInt(frm_inout.Edit3.Text) * StrToFloat(frm_drugitem.Edit7.Text) )
        else frm_inout.Edit4.Text := '0';
end;
Dmitry.
  • Registered: 2014-02-17
  • Posts: 365

Re: How To Cal On Text Change

Ohhhh Hooooooo Thank you Very much .....
Love Love Love

My Visual Database : I Love You
Easy For Beginner Student For Me