各位大虾你们好，我是一个初学的菜鸟，请大家多多关照，我在这里先谢了。
我今天想求教大家是，我现在正用Delphi7编写一个无键的计算器（就是只有一个edit控件的输入框，数字的输入、加减乘除等功能直接用键盘搞定，不用鼠标，就像windows自带的计算器）。现在的问题是：当按键盘上的“加号键”时，“加号字符”也被输入到“输入框”里，我当初的设想是：当我按下键盘上的“加号键”时，“输入框”里的“数字”就被放到一个Float型变量里（如变量Ａ），然后，“输入框”被清空，再输入一个数字，然后回车显示结果。可是在按“加号键”时，“加号字符”也跑到了“输入框”里，而且还跟着输入框里的其它“数字”数据一起，被非法的植入到Float型变量里，导致程序错误。这样的问题该怎么办？？？？
请各位大虾多多指教。谢谢！！！我的ＱＱ是957576690
我的Email是[email protected]
我今天想求教大家是，我现在正用Delphi7编写一个无键的计算器（就是只有一个edit控件的输入框，数字的输入、加减乘除等功能直接用键盘搞定，不用鼠标，就像windows自带的计算器）。现在的问题是：当按键盘上的“加号键”时，“加号字符”也被输入到“输入框”里，我当初的设想是：当我按下键盘上的“加号键”时，“输入框”里的“数字”就被放到一个Float型变量里（如变量Ａ），然后，“输入框”被清空，再输入一个数字，然后回车显示结果。可是在按“加号键”时，“加号字符”也跑到了“输入框”里，而且还跟着输入框里的其它“数字”数据一起，被非法的植入到Float型变量里，导致程序错误。这样的问题该怎么办？？？？
请各位大虾多多指教。谢谢！！！我的ＱＱ是957576690
我的Email是[email protected]
procedure TForm1.edt1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
AStr: string;
begin
if Key = 107 then
//判断符号，“+”是107，其他符号你可以用edt1.text := inttostr(key)来查看，或者去他途径
begin
AStr := edt1.Text;
AStr := Copy(AStr, 1, Length(AStr) - 1);
edt1.Text := AStr;
edt1.SelStart := Length(edt1.Text);
end;
end;