Вывести в label сколько в данный момент отображено записей в DBGrid

@quantic · Регистрация: 24.04.2012

Студворк — интернет-сервис помощи студентам

Всем привет. Ребятки, не получается вывести в label ( а конкретно в label2.text) сколько в данный момент отображено записей в таблице. Волнует кол-во записей, которое получается ПОСЛЕ различных фильтраций таблицы, это число должно обновляться после применения фильтрации или после удаления записи, т.е. всякий раз, когда кол-во записей таблицы уменьшается или увеличивается, поэтому код, который представлен ниже не подошел ( т.к. он всегда показывает одно и тоже число записей в Table, а не число текущего кол-ва записей):

Delphi

1	label2.Caption:='Отображено записей: ' + IntToStr(datamodule2.table1.RecordCount );

пробовала и 2 вариант:

Delphi

datamodule2.Query1.Active:= false;
datamodule2.Query1.SQL.Clear;
datamodule2.Query1.SQL.Add('SELECT COUNT (*) AS ''COUNT'' FROM [ABONENT]');
datamodule2.Query1.Active:= TRUE;
label2.caption := IntToStr(datamodule2.Query1.RecordCount);

- тут вылетает ошибка Invalid use of keyword. Token: FROM.

------------------Ответ найден!---------------------

Delphi

procedure TDataModule2.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
if DataSource1.DataSet.RecNo<>-1 then Form1.Label2.Caption:=Format('Çàïèñåé: %d',[DataSource1.DataSet.RecordCount]);
end;

Опции темы