if语句带你切换中英文

1、窗体文件与程序设计

（1）、窗体文件

 

（2）、代码精彩片断

procedure TForm1.Button1Click(Sender: TObject);
begin
    if Label1.Caption='欢迎来到dyli Delphi语言训练基地' then
    //这里Label1.Caption=xx 表示判断条件，即判断label的文本内容


      begin
         Label1.Caption:='Welcome to dyli Delphi Tranning base';
         Button1.Caption:='Switch to Chinese';
      end //这里这里有end没有逗号，别上当了


    else
      begin
          Label1.Caption:='欢迎来到dyli Delphi语言训练基地';
          Button1.Caption:='切换到英文';
      end;
end;

   本程序只在不断的点击Button1的过程中，实现Lable1上的Caption文本不断的在中文与英文的切换。上面的if语句中，应注意Delphi if语句的格式，并应注意到then关键字后面的begin end 的end是没有逗号的，切记！勿忘！！

 

2、运行效果

中文界面：

 

英文界面