标题:请给看一下哪里有问题!
取消只看楼主
erlin
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2007-3-19
 问题点数:0 回复次数:1 
请给看一下哪里有问题!

跟书上学的做的一个"个人所得税"的小东西
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'

2007-03-24 23:30
erlin
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2007-3-19
得分:0 

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


人生上半场20年,拒人3次,被拒2次,目前3:2领先……
2007-03-25 19:11



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-126565-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.290274 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved