问个关于Delphi最基本的问题，会Delphi的朋友请进

来源：百度知道 编辑：UC知道 时间：2024/05/22 07:29:23
从网上找到一个delphi小程序的源代码，我现在已经安装了delphi 7,问怎么用delphi 7把这个源代码编成程序？本人以前从来没接触过编程，请各位大侠尽量说的详细些，通俗些，告诉我具体步骤即可。

下面是小程序的源代码：
先说一下这个程序的要求吧，是这样的：
〔label1〕+〔label2〕=〔edit1〕〔label3〕
另外还有一个button1,edit2.
要求在button1被按下时,label1,label2产生1000以内的任意数,当在edit1中输入正确答案时,〔label3〕立即显示:正确,错误则无提示,并在edit2中统计答对题数

源代码是：
可以定义一个全局变量用来记录正确的数目,并在窗体创建时赋初始值:
procedure TForm1.FormCreate(Sender: TObject);
begin
i := 0;
end;
//随机生成数:
procedure TForm1.Button1Click(Sender: TObject);
var z,j : integer;
begin
Randomize;
j := random(1000);
z := random(1000);
label1.Caption := inttostr(j);
label2.Caption := inttostr(z);
end;
//当按下enter键时判断答案是否正确:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
if edit1.Text =inttostr(strtoint(label1.Caption) + strtoint(label2.Caption)) then
begin
label3.Caption :='タ絋';

完整的代码 按F9就可以编译执行，但是首先你要建立Application（选择File->new），自己添加Button1 Label1 Label2 Label3 Edit1 Edit2组件，另外添加FormCreate,Button1Click，Button1Click事件，添加事件的位置在对应控件的属性框Events位置，另外Edit1对话框输入不为整形数时会类型报错，你可以自己修改一下，做key的输入约束；还有什么问题可以留言。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
i:Integer;

implementation

{$R *.dfm}

//随机生成数:
procedure TFo