Experts Exchange connects you with the people and services you need so you can get back to work.
type TNumbers = (Zero, One, Two, Three);
var i: integer;
i := integer(High(TNumbers)) + 1; // i is now 4
Open in new window
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
TNumbers = (One, Two, Three, Four, Five);
TForm1 = class(TForm)
procedure Button1Click(Sender: TObject);
procedure ListNumbers(List: TStrings);
procedure TForm1.ListNumbers(List: TStrings);
for I := Low(TNumbers) to High(TNumbers) do
procedure TForm1.Button1Click(Sender: TObject);
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Premium members get this course for $95.20.
Premium members get this course for $49.99.
Premium members get this course for $167.20.
Premium members get this course for $37.50.
Premium members get this course for $159.20.
Premium members get this course for $122.40.
Premium members get this course for $62.50.