Looping Through Enum

Sometimes you may need to loop through Enum. To do this, you can use List Data Type.

local procedure EnumLoop()
var
    MyEnum: Enum "My Enum";
    EnumIndex: List of [Integer];
    iMax, iLoop : Integer;
begin
    EnumIndex := ScanSource.Ordinals();
    iMax := EnumIndex.Count();

    If iMax <= 0 then
        exit;
    
    iLoop := 1;
    repeat //loop here
      MyEnum :=...

Continue Reading thatnavguy’s Article on their blog

Private Site

This site is currently private. Log in to WordPress.com to request access.

Blog Syndicated with thatnavguy’s Permission