计算器怎么控制小数点个数

大灰狼999 发布于 2011-02-10 16:48， 913 次点击

我做了一个计算器不知道怎么控制小数点个数，可以无限点击小数点。比如：3..........我应该怎么加代码？
这是我写的一部分代码，如何控制小数点个数却不知道怎么写，望大虾赐教~~~~
procedure TForm1.SpeedButton20Click(Sender: TObject);
begin
if speedbutton12.caption='关闭' then
edit1.Text:=edit1.Text + '.';
end;

end.

1 回复

大灰狼9992011-02-16 12:02

我会了~判断小数点位置不能再第一个，且只能有一个小数点出现
if (pos('.',edit1.Text)=0 ) and (edit1.text <> '') then edit1.Text:=edit1.text+'.';