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

Question

新手入门真的就这么难吗？
网上搜了半天了，也没有搜到点子上，一些回答全都是答非所问。
翻书也翻了一两个小时，却没有一本好的详细一点的教程。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.

Answer 1

unit Unit1;interfaceuses
  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.

Answer 2

if  ... then
   <1>
else
  <2>
对于<1>位置只有1行来说是没有问题，有多行必须用
if ... then
begin
  <1>
  <2>
  <3>
end else
begin
  <4>
  <5>
end;

Answer 3

汗... 楼主把实现的代码写在接口部分了，不错就怪了 -_______-||入门的话，推荐看看《Pascal精要》，有电子书格式。

Answer 4

这个问题昨天晚上自己解决了，呵呵
其实本意是想写一个单元文件，不带窗体的。里边定义全局变量，后来写成了：unit LanguageSet;interface
var  Language:string;    //语言
  LabelName:string;   //用户名
  LabelPwd:string;    //用户密码
  ButtonLogin:string; //登录按钮
  ButtonExit:string;  //退出按钮
  AppName:string;     //软件名称
  LabelLanguage:string;  Procedure VariableInit;implementation
  Procedure VariableInit;
  begin
    Language:='English';
    //Language:='ChineseS';
    if Language='English' then
      begin
        LabelName:='User ID';
        LabelPwd:='Password';
        ButtonLogin:='Login';
        ButtonExit:='Exit';
        LabelLanguage:='English';
        AppName:='UExam';
      end
  else if Language='ChineseS' then
      begin
        LabelName:='用户';
        LabelPwd:='密码';
        ButtonLogin:='登录';
        ButtonExit:='退出';
        LabelLanguage:='简体中文';
        AppName:='UExam考试系统';
      end;
  end;end.可是这样又有一个问题，就是在其他单元里边调用全局变量，得到的是没有赋值的变量。如果想要得到赋值的变量，还要调用VariableInit过程才行。能不能有更好的解决办法？