问一个简单的问题

Question

我要定义一个变量并赋值为什么这样做是错的
能帮我改一下吗?
private
a:integer=2;
这样编译不能通过如果是这样能不能保证为私有的啊?
private
a:integer;
var 
a:integer=2;
这样编译可以通过小弟在书上找半天都没找到例子,请各位帮帮小第吧

Answer 1

顺便问一下
要申明个函数改怎么写啊?
function gamebegin():void;
这样是错的
该怎么改呢?
一定要空类型的啊

Answer 2

function SaveASS(t:integer):boolean;
begin
end;

Answer 3

procedure sss(t:integer);
begin
end;这是过程，

Answer 4

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    a:integer;
  public
    { Public declarations }
  end;var
  Form1: TForm1;
//////////////////////
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=3;
end;
 同样是私有的