Goedenavond Dames en Heren,
Hierbij een kort vraagje van deze kant, ik 'schaam' me bijna om het te vragen maar op dit moment geraak ik er even niet uit. (het lijkt erop alsof we een beetje 'leeg' zijn toe aan vacantie ofzo)
Heeft iemand enig idee wat de makkelijkste manier is om een Enumeratie te doorlopen om elke item te kunnen doorgeven aan een andere methode. Ik dacht dat we aardig op weg waren met Low en High echter gaat dit niet helemaal goed als de enumeratie 'gaten' bevat.
Hier een klein stukje vb code.
M.b.v. bovenstaande worden er 30 regels in de memo geschreven, dit terwijl ik had verwacht/gehoopt dat alleen de getallen 10, 20 en 30 in de memo zouden verschijnen.Code:const csMyConstValueA = 10; csMyConstValueB = 20; csMyConstValueC = 30; type TMyEnum = (meValueA = csMyConstValueA, meValueB = csMyConstValueB, meValueC = csMyConstValueC); procedure Test; var enum: TMyEnum; begin for enum := Low(TMyEnum) to High(TMyEnum) do begin memo.Lines.Add(IntToStr(Ord(enum))); end; end;
Ik heb nog even gekeken naar For In maar deze lijkt niet echt te werken, althans de compiler vindt dit niet valide voor een enumeratie.
Iemand suggestie's / ideen om toch middels een simpel loopje alleen de drie waardes uit de enumeratie te halen.
Alvast bedankt,
Bookmarks