麻烦告诉我错在哪里…………
新手入门真的就这么难吗？
网上搜了半天了，也没有搜到点子上，一些回答全都是答非所问。
翻书也翻了一两个小时，却没有一本好的详细一点的教程。
unit LanguageSet;
interface
var
Language:string; //语言
LabelName:string; //用户名
LabelPwd:string; //用户密码
ButtonLogin:string; //登录按钮
ButtonExit:string; //退出按钮
LabelLanguage:string;
Language:= 'English ';
if Language= 'English ' then
LabelName:= 'User ID '
LabelPwd:= 'Password '
ButtonLogin:= 'Login '
ButtonExit:= 'Exit '
LabelLanguage:= 'English '
else if Language= 'ChineseS ' then
LabelName:= '用户 ';
LabelPwd:= '密码 ';
ButtonLogin:= '登录 ';
ButtonExit:= '退出 ';
LabelLanguage:= '简体中文 ';
implementation
end.
[解决办法]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Language:string; //语言
LabelName:string; //用户名
LabelPwd:string; //用户密码
ButtonLogin:string; //登录按钮
ButtonExit:string; //退出按钮
LabelLanguage:string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Language:= 'English ';
if Language= 'English ' then
begin
LabelName:= 'User ID ';
LabelPwd:= 'Password ';
ButtonLogin:= 'Login ';
ButtonExit:= 'Exit ';
LabelLanguage:= 'English ';
end
else if Language= 'ChineseS ' then
begin
LabelName:= '用户 ';
LabelPwd:= '密码 ';
ButtonLogin:= '登录 ';
ButtonExit:= '退出 ';
LabelLanguage:= '简体中文 ';
end;
end;
end.
[解决办法]
if ... then
<1>
else
<2>
对于 <1> 位置只有1行来说是没有问题，有多行必须用
if ... then
begin
<1>
<2>
<3>
end else
begin
<4>
<5>
end;
