Состояние и количество записей в таблице

Простая функция, которая отображает текущую запись и их общее количество(т.е. Запись 2 из 10) и состояние таблицы для Paradox или dBase.

Предполагается, что у Вас имеются все TTable и TDataSource в DataModule по имени DM.

Объявите в DataModule частную процедуру:

procedure TDM.ShowCurrentRec(T: TTable; var S: String);
var
  TheRec, Total: LongInt;
begin
  TheRec := T.RecNo;
  Total  := T.RecordCount;
  if TheRec = -1 then S := 'Inserting...'
  else S := Format('Record %d of %d', [TheRec, Total]);
end;

Процедура требует два параметра:

Объект TTable для проверки,
Строку (которая будет изменять значение) для описания состояния таблицы.

Обратите внимание, что мы проверяем где RecordCount = -1, чтобы определить вставку новой записи.

Теперь, чтобы использовать это, Вы должны будете закодировать событие OnDataChange для DataSources (они находятся в DataModule):

procedure TDM.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
  ShowCurrentRec(Table1, Form1.Caption);
end;

Обратите внимание, что второй параметр может быть любым со строковым свойством, например, он может указывать на заголовок или любую строковую переменную.

—

03.09.2016

coder

Состояние и количество записей в таблице

Комментарии