暗黙の初期化

Delphi

明解Ｃ言語 入門編 > 6. 関数 >

暗黙の初期化

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
var

    fx: Integer;
procedure func();

const

//  sx: integer;  初期値を指定しなければいけない

    sx: Integer = 0;

var

    ax: Integer;

begin

    writeln(format('%3d%3d%3d', [ax, sx, fx]));

end;
begin

    func;

end.
実行結果


S:\>lesson054\project1.exe

2147348480  0  0