if StrToInt(BEdit1Edit1.Text) < 30 then
Edit2.Text := '30'
else if StrToInt(BEdit1Edit1.Text) in [30..50] then
DBEdit2Edit2.Text := '40'
else
DBEdit2')Edit2.AsStringText := '50'
usando o if ternário
Como ficaria a seguinte situação
if StrToInt(BEdit1.Text) < 30 then
Edit2.Text := '30'
else if StrToInt(BEdit1.Text) in [30..50] then
DBEdit2 := '40'
else
DBEdit2').AsString := '50'
usando o if ternário
Como ficaria a seguinte situação
if StrToInt(Edit1.Text) < 30 then
Edit2.Text := '30'
else if StrToInt(Edit1.Text) in [30..50] then
Edit2.Text := '40'
else
Edit2.Text := '50'