Question

delphi 中的一个局部变量变成全局变量 等着用呢~~~

procedure TFLogManage.ShowPage(page: integer);//下面也要用到这个page 应该怎么办
var

fieldstr: string;
begin

with ADOQuery1 do
begin
Close;
SQL.Text := 'select top ' + inttostr(PAGESIZE) + ' * from logmanage WHERE id NOT IN (SELECT TOP '
+ inttostr(PAGESIZE * (page - 1)) + ' id FROM logmanage ) order by log_time desc ';
//showmessage(SQL.Text);
Open;
DBGrid1.Refresh ;
end;
LCap.Caption:=pchar('从'+inttostr(PAGESIZE * (page - 1))+'条记录到'+inttostr(PAGESIZE * (page ))+'条记录');
LCap.Refresh;
LCap.Caption := IntToStr(page);
end;
下面要用到这个page 不知道怎么办 说具体点通俗点 俺是初学者

Answer 1

1.如果你这个page是整个程序中都需要使用的全局变量，
到你过程所在的Unit中，implementation 段 ，添加“var page : 类型 ;”
2.如果你这个page仅在过程TFLogManage.ShowPage()中使用，则为局部变量，
就在这个过程定义的var段中声明即可;

Answer 2

在
procedure TFLogManage.ShowPage(page: integer);
begin
.....
X:=page;
.....
end;
的外面定义一个变量，如：X ，在ShowPage里面给X赋值，即可。