delphi报[Error] Unit1.pas(37): '.' expected but ';' found

Question

我的源码在这里
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;
{$R *.dfm}
var
  a:Tmember;
  begin
    a:=Tmember.Create;
    a.Name:='zhy';
    a.Age:=20;
    a.Male:=false;
  end;      //就是这里报错
  procedure TForm1.Button1Click(Sender: TObject);
  begin
    Label1.Caption:='afsdf';
  end;end.

Answer 1

var
  a:Tmember;
  begin
  a:=Tmember.Create;
  a.Name:='zhy';
  a.Age:=20;
  a.Male:=false;
  end; //就是这里报错
你这段是不是应该写在函数里啊？

Answer 2

我现在还没学到函数了   我是才开始学这个的。我自己去买的一本delphi的书  我看书上就是这样的  我把unit2的内容也贴上来 你帮帮我看看吧！
unit Unit2;interfaceType
  Tmember=class
  public
  Name:String;
  Age:Integer;
  Male:Boolean;
End;implementationend.

Answer 3

我是一边看着书一边在敲代码啊， 关键是这个错误我弄不明白。我把end后面的;换成.还是不行！谁知道怎么改的直接给我说下代码吧   顺便把原理为什么给我说下，小弟是新手，才开始学的

Answer 4

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
  Label1: TLabel;
  Button1: TButton;
  Button2: TButton;
  procedure Button1Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;
var
  Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure xxxxx;
var
  a:Tmember;
  begin
  a:=Tmember.Create;
  a.Name:='zhy';
  a.Age:=20;
  a.Male:=false;
  end; //就是这里报错
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  Label1.Caption:='afsdf';
  end;
end.xxxxx处随便写点啥。。

Answer 5

楼上的  XXXX处随便写点啥是啥意思

Answer 6

关键是我现在不用过程和函数   就只是纯粹的多写一个类，给类里的属性赋值后在再传到窗体里的label里面。就这种最基础的东西不用函数也可以吧，帮我修改下代码有那么难吗，就这样给我说什么在XXXX处写个东西我怎么知道写什么，书上也没说明

Answer 7

汗。。那你将
var
  a:Tmember;
  begin
  a:=Tmember.Create;
  a.Name:='zhy';
  a.Age:=20;
  a.Male:=false;
  end;
删除罢。。

Answer 8

我晕啊   删除了怎么给那个类赋值   下面label的属性也要用啊

Answer 9

你新建一个application，然后把那段拷过去！！