devxlogo

How to display “Record x of y”

Why Trust Us

Question:
I am writing a database app in Delphi that is a Customer/Order Management System, and need to display a ‘3 of 7’ type info in the status bar. How can I get the position and number of records?

Answer:
TTable has two properties for displaying the current record and totalrecords, respectively. They are:

RecNo and RecordCount

Your best bet is to place the code that would display these values inthe OnDataChange event of your DataSource component as follows:

procedure TIFMain.DataSource1DataChange(Sender: TObject; Field: TField);begin  Panel1.Caption := IntToStr(Table1.RecNo) + ‘ of ‘ +                     IntToStr(Table1.RecordCount);end;
because OnDataChange occurs every time something happens to the underlying dataset, like scrolling to a new record.

Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.

See also  Seven Service Boundary Mistakes That Create Technical Debt
Disclosure

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

Show More