procedure TForm1.Button1Click(Sender: TObject);
{$j+}
const a: Integer = 0;
{$j-}
var
I: Integer;
begin
for I := 1 to 5 do
begin
a := a + I;
end;
end;
delphi 局部静态变量的使用
最新推荐文章于 2023-12-14 01:04:29 发布
procedure TForm1.Button1Click(Sender: TObject);
{$j+}
const a: Integer = 0;
{$j-}
var
I: Integer;
begin
for I := 1 to 5 do
begin
a := a + I;
end;
end;