0 0532qd Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-26 #1 用一个Edit让用户输入任意小数，我用点击一个按钮就可算出，他输入的小数的每个位都是什么数，还有小数点在第几位上，如何解决？（例如：用户输入12.34，按钮后可以讲1，2，3，4赋值给四个变量，还有小数点位数是2赋值给另一个变量）
用一个Edit让用户输入任意小数，我用点击一个按钮就可算出，他输入的小数的每个位都是什么数，还有小数点在第几位上，如何解决？（例如：用户输入12.34，按钮后可以讲1，2，3，4赋值给四个变量，还有小数点位数是2赋值给另一个变量）
M misxjq Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-26 #3 取数简单，循环贝！按位把数据写到字符数组里！ var a:array[1..50] of string; begin for i:=1 to Length(Trim(Edit.Text)) do begin a:=Copy(Trim(Edit.Text),i,1); end; end; 查找小数点用Pos()函数 i:=Pos('.',Trim(Edit.Text)),i就是索引值
取数简单，循环贝！按位把数据写到字符数组里！ var a:array[1..50] of string; begin for i:=1 to Length(Trim(Edit.Text)) do begin a:=Copy(Trim(Edit.Text),i,1); end; end; 查找小数点用Pos()函数 i:=Pos('.',Trim(Edit.Text)),i就是索引值
