如果Edit控件为空就置为０，这个函数是什么呀！！

Question

如果Edit控件为空就置为０，这个函数是什么呀！！

Answer 1

Edit.Text := StrToIntDef(Edit.Text,0)

Answer 2

什么意思？是没有edit控件还是说他的text属性？

Answer 3

Edit.Text := IntToStr(StrToIntDef(Edit.Text,0))

Answer 4

什么意思？
能不能说清楚一点？是它的 TEXT 为空，
还是别的？

Answer 5

Edit1.Text :=RightStr(BoolToStr(Edit1.Text<>'',False),1);注意单元引用

Answer 6

if Length(Edit.Text) = 0 then Edit.Text := StrToIntDef(Edit.Text,0)

Answer 7

if Length(Edit.Text) = 0 then Edit.Text := '0'

Answer 8

引用StrUtils单元，然后：edit1.Text:=ifthen(edit1.Text='','0',edit1.Text);
//如果为空就置0，否则不变

Answer 9

if edit.text:='' then edit.text:='0';