如何在状态栏中显示变量内容？？如在状态栏中显示当前显示记录个数？？

Question

设计时双击状态栏可添加Panelsprocedure TForm1.Table1AfterOpen(DataSet: TDataSet);
begin
  StatusBar1.Panels[0].Text:=IntToStr(DataSet.RecordCount);
end;

Answer 1

procedure TForm1.prcShowData;
var
  iMaxCount : integer;
begin
  with QUERY1 do
  begin
    ......
    Open;
  end;
  iMaxCount:= QUERY1.RECORDCOUNT;
  ...//Show Data
  StatusBar1.Panels[0].Text:=IntToStr(iMaxCount);
end;

Answer 2

他们说的就足够了，将记录个数的值赋给panels就成了！