读书人

麻烦告诉小弟我错在哪里…

发布时间: 2012-02-12 17:16:33 作者: rapoo

麻烦告诉我错在哪里…………
新手入门真的就这么难吗?
网上搜了半天了,也没有搜到点子上,一些回答全都是答非所问。
翻书也翻了一两个小时,却没有一本好的详细一点的教程。

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;

读书人网 >.NET

热点推荐