EPUB | CHM | PDF

Example: AfterDelete, Format

Top Previous Next

This example displays a message on the form's status bar indicating the table's record count after a record is deleted.

procedure TForm1.PSQLTable1AfterDelete(DataSet: TDataSet);
begin
  StatusBar1.SimpleText := Format('There are now %d records in the table',
                                  [DataSet.RecordCount]);
end;