Question

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

从网上找到一个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 :='タ絋';
i := i+1;
edit2.Text := inttostr(i);
end
else
label3.Caption := '';
end;
end;

另外，如果请段代码万一有错误的话也请大侠顺便指出，谢了!真心学习，满意的话再追加100分。
非常非常感谢，我终于做出来了!!谢谢!!

Answer 1

完整的代码 按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 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 :='正确';
i := i+1;
Edit2.Text := IntToStr(i);
end
else
begin
Label3.Caption := '';
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i := 0;
end;

end.

没有显示正确是因为没有触发Edit1KeyPress事件，具体的在Edit1的事件下，点击Edit1的Event部分，有个Keypress事件，需要手动点击下，另外Form的Create事件也需要自己手动添加下

Answer 2

DELPHI7下怎样把程序原码编译为EXE文件：

程序源代码一般有几个文件，有.PAS、.DPR、.RES、.DFM等，其中.DPR文件是主文件，一个应用程序只有一个.DPR文件，可能有多个其它扩展名的文件。

把你从网上下载的这些源码文件放在一个文件夹下，鼠标双击里面的.DPR文件，如果你的DELPHI安装正确，双击以后就会进入DELPHI系统，你就可以点DELPHI菜单里面的编译EXE文件，或者直接运行。

如果你从网上得来的只是以上片段，没有完整的源程序文件。那么你需要进入DELPHI系统，点菜单新建工程，按照上面的步骤设计程序窗口和代码，最后编译或者运行。这个期间可能会出现许多语法错误，耐心学习相信你能搞定，搞完一次你就知道怎样用DELPHI编写程序了，就能编写自己的程序了。