变量初始化

1.变量赋初始值

const
{$J+}
  num: Integer = 1;
{$J-}
begin
  Inc(num);
  ShowMessage(IntToStr(num)); {2}
end;

//或者写作:
const
{$WRITEABLECONST ON}
  num: Integer = 1;
{$WRITEABLECONST OFF}
begin
  Inc(num);
  ShowMessage(IntToStr(num)); {2}
end;

2.利用initialization初始化

var
  FilePath : string;

implementation

initialization
  FilePath := ExtractFilePath(Application.ExeName) + 'Test.xml'; {..Test.xml}

end.