Question

Delphi7中在下面这段代码中，我想要添加实现下面几个功能。请大家帮我看下!谢了 我是新手。

Delphi7中在下面这段代码中， 我想要添加实现下面几个功能：
1。 加个欢迎屏幕，就是打开程序后显示的一句话。
2。 这段代码颜色显示有点问题，有朋友帮我看下。总是显示黑色。就执行最后1句
procedure TForm1.Button1Click(Sender: TObject);
begin
if(edit1.text='6')or (edit1.text='7')then
edit2.Text:='今天是休息日，工作的话有双倍工资';
form1.color:=clred;
edit2.color:=cllime;

if(edit1.text>='1')and(edit1.text<='5')then
edit2.Text:='今天必须工作';
form1.color:=clskyblue;
edit2.Color:=claqua;

if(edit1.text='0')or(edit1.text>='8')then

edit2.text:='您输入错误,请重新输入';
edit1.color:=clblack;
edit2.color:=clblack;
form1.color:=clblack;
end;

end.

Answer 1

程序有很多问题，首先缩进错误，不仅是排版上的，还有逻辑上的。第一个if语句缩进应该如下：
if(edit1.text='6')or (edit1.text='7')then
edit2.Text:='今天是休息日，工作的话有双倍工资';
form1.color:=clred;
edit2.color:=cllime;
if语句只对其下的一行有作用，之后的代码无论if语句怎样都会执行，应该加上begin...end;
if 条件 then
begin
end;

整个代码修改如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
if(edit1.text='6')or (edit1.text='7')then
begin //增加内容
edit2.Text:='今天是休息日，工作的话有双倍工资';
form1.color:=clred;
edit2.color:=cllime;
end else //增加内容

if(edit1.text>='1')and(edit1.text<='5')then
begin //增加内容
edit2.Text:='今天必须工作';
form1.color:=clskyblue;
edit2.Color:=claqua;
end else //增加内容

if(edit1.text='0')or(edit1.text>='8')then
begin //增加内容
edit2.text:='您输入错误,请重新输入';
//edit1.color:=clblack; //去掉内容
edit2.color:=clblack;
form1.color:=clblack;
end; //增加内容
end;

另外，欢迎界面。
新建一个Form2。然后在Form1里添加一个定时器Timer1，其Interval属性设置为1，OnTimer事件代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Form2.ShowModal;
end;
就可以显示出Form2窗口了。剩下的事就是编辑Form2，来达到你要显示的效果。

Answer 2

if .... then的后面如果有多条语句，一定要用begin end包含起来，否则只有紧跟着的第一句话带有条件，后续语句会无条件执行。

你上面的代码缺少三对begin end。

关于启动画面的问题，我直接引用其他人的回答。参看：
http://zhidao.baidu.com/question/107926157.html?an=0&si=6
有问题可以继续追问。