我刚刚学习delphi,我想请教一下,如何做到当计算出两个数之间的和或差,另一个button按钮在按下时会弹出对与错的提示
解决方案 »
- 如何使多个子窗体中的一个始终置顶显示
- 在线等答案!
- 怎么实现在combobox中只能通过下拉框来选择文本而不让输入.
- 讨论一个想法:能不能让编写的程序独占运行?就是看起来机器只能运行这个程序,其它的屏蔽掉?
- 关于SQL Server 数据插入的问题
- DBGrid问题
- 如何用dbgrid制作类似于sql server2000权限分配的表?
- dbo的连接问题
- 请问如何用 Open Tools 在IDE环境中,加入与 File 同级的菜单(顶层)?
- 请问如何清除Internet Explorer 的历史记录,是否有可用的API函数。
- 各位大虾:请问怎么用组合键呼出程序窗口,比如CTRL+ALT+H,因为我要将程序完全隐藏,最好是原代码,来者有分,可以再加!
- virtualstringtree结点中怎么显示一个checkbox
var
a,b,c:integer;
beigin
a:=100;
b:=200;
c:=300;
if (a+b=300) then
ShowMessage('正确')
else
ShowMessage('错误');
end;
ShowMessage('正确')
else
ShowMessage('错误');
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label3: TLabel;
Label4: TLabel;
Edit4: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
uses Math,types;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d:double;
begin
a := StrTointDef(Edit1.Text,0); //数值1
b := StrTointDef(Edit2.Text,0); //数值2
c := StrTointDef(Edit3.Text,0); //两数之和
d := StrTointDef(Edit4.Text,0); //两数之差
if (CompareValue(a+b,c) <> EqualsValue) then
begin
showMessage('两数之和不正确,正确值为' + floatTOStr(a+b));
Exit;
end; if (CompareValue(a-b,d) <> EqualsValue) then
begin
showMessage('两数之差不正确,正确值为' + floatToStr(a-b));
Exit;
end;
randomize;
Edit1.Text := IntToStr(random(100));
Edit2.Text := IntToStr(random(100));
Edit3.Text := '';
Edit4.Text := '';
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
randomize;
Edit1.Text := IntToStr(random(100));
Edit2.Text := IntToStr(random(100));
end;end.