跟书上学的做的一个"个人所得税"的小东西
unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
sum,para,tax:single;
begin
sum:=strtofloat(edit1.Text);
sum:=sum-800;
tax:=0;
if sum>2000
then begin
para:=sum-2000;
sum:=sum-para;
tax:=tax+para*0.15;
end;
if sum>500
then begin
para:=sum-500;
sum:=sum-para;
tax:=tax+para*0.1;
end;
if sum>0
then tax:=tax+sum*0.05;
edit2.text:=floattostr(tax);
end;

那个代码检测没有出现红色行的错误提示,但是点运行不出现完成的那个东西,下面错误提示是
[Error] Unit1.pas(123): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit '作业6\Unit1.pas'

最后的end. 呢?

Declaration expected but end of file found 少写或者匹配不对所致，查看你程序中所有的BEGIN..与END是否都匹配了，然后再查是否那些地方少加了;号或是多加了;号。

好了，楼主的程序我已经跑过了，只要在尾部增加一个end.就可以通过了，顺带，最好把最后一个if的中间程序加上begin..end;这样程序会清晰很多。

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
sum,para,tax:single;
begin
sum:=strtofloat(edit1.Text);
sum:=sum-800;
tax:=0;
if sum>2000 then
begin
para:=sum-2000;
sum:=sum-para;
tax:=tax+para*0.15;
end;
if sum>500 then
begin
para:=sum-500;
sum:=sum-para;
tax:=tax+para*0.1;
end;
if sum>0 then
begin
tax:=tax+sum*0.05;
edit2.text:=floattostr(tax);
end;
end;

end.

以上代码是完整的代码，已经通过DELPHI 7测试的。

这次代码是没问题了,但是怎么打不开呀?
点那个绿色的三角测试就闪一下就没了,好象是一打开就自动给关了.双击那个以完成的EXE的也是打不开.