我想给status赋一个初值;我是这样写的:
status:integer;
status:=01;
可系统总说我重复设置,该怎样作呢?

解决方案 »

  1.   

    写错了,是
    status:integer;
    status:=1;
    得到提示:
    [Error] shengpi.pas(35): Identifier redeclared: 'status'
      

  2.   

    定义为全局变量var status:Integer=01;
      

  3.   

    status : Integer = 1;
      

  4.   

    我这可以
    procedure TForm1.Button1Click(Sender: TObject);
    var
      status:Integer;
    begin
      status:=1;
    end;如果你那还不行的话,换一个变量名
      

  5.   

    这样可以:
    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;type
      TForm1 = class(TForm)
        Button1: TButton;
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;
      aa:Integer =1;    //在这定义
    implementation{$R *.dfm}end.
      

  6.   

    这样可以:
    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;type
      TForm1 = class(TForm)
        Button1: TButton;
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;
      aa:integer;
    const
     aa=1;    //在这定义implementation{$R *.dfm}end.
    这样你再试试看?
      

  7.   

    status:integer;
    status:=1;       这两行你在程序中也是紧挨着的么?是不是都写到var下了。