Delphi编写简单算式计算器.docVIP

Delphi编写简单算式计算器 //edit1中产生算式，edit2中输入数字并产生结果 //按键：1?? 2?? 3? 4? 6? 7? 8? 9? 0? +? -? *?? /? =?? 。 清空C?? 撤消?? 正负号+/- unit jisuanqiUnit1; interface uses? Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,? Dialogs, StdCtrls; type? TForm1 = class(TForm)??? Edit1: TEdit;??? Button1: TButton;??? Button2: TButton;??? Button3: TButton;??? Button4: TButton;??? Button5: TButton;??? Button6: TButton;??? Button7: TButton;??? Button8: TButton;??? Button9: TButton;??? Button10: TButton;??? Button11: TButton;??? Button12: TButton;??? Button13: TButton;??? Button14: