这款Delphi7开发的功能全面的系统计算器，集成了基本运算、科学计算以及编程所需的多种函数，操作便捷，适用于各种计算需求。
```delphi
object Form1: TForm1
Left = 0
Top = 0
Caption = Calculator
ClientHeight = 236
ClientWidth = 498
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = MS Sans Serif
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label2: TLabel
Left = -40872
Top = -50632
Width = 56
Height = 13
Caption = Decimal Places
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = MS Sans Serif
Font.Style = [fsBold]
ParentFont = False
end
object MainMenu1: TMainMenu
Left = 420
Top = 88
object ViewMenu: TMenuItem
Caption = &View
OnClick = ViewMenuClick
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 217
Width = 498
Height = 19
Panels = <
item
Alignment = taLeftJustify
TextSettings.Font.Charset = DEFAULT_CHARSET
TextSettings.Font.Color = clWindowText
TextSettings.Font.Height = -13
TextSettings.Font.Name = MS Sans Serif
TextSettings.Font.Style = []
end>
end
object Memo1: TMemo
Left = 240
Top = 85
Width = 257
Height = 96
Hint = Memory Display Area, Press M to Clear or Paste from Clipboard.
ScrollBars = ssVertical
TabOrder = 3
Visible = False
end
object Button1: TButton
Left = 408
Top = 27
Width = 57
Height = 39
Hint = View Memory Display Area, Press M to Clear or Paste from Clipboard.
Caption = M
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = MS Sans Serif
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end
object Label1: TLabel
Left = 248
Top = 59
Width = 376
Height = 26
Alignment = taCenter
Caption = Press M to View Memory Display Area, Clear or Paste from Clipboard
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = MS Sans Serif
Font.Style = [fsBold]
ParentFont = False
end
object Button2: TButton
Left = 408
Top = 79
Width = 57
Height = 39
Hint = Clear Memory Display Area, Press M to View or Paste from Clipboard.
Caption = Clear
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = MS Sans Serif
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button2Click
end
object Edit1: TEdit
Left = 384
Top = 0
Width = 73
Height = 25
Hint = Decimal Places Setting, Press M to View Memory Display Area or Paste from Clipboard.
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = MS Sans Serif
Font.Style = []
ParentFont = False
TabOrder = 4
end
object Button3: TButton
Left = 250
Top = 87
Width = 97
Height = 165
Hint = Clear All Memory Display Area, Press M to View or Paste from Clipboard.
Caption = Clear
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -20
5星
