[delphi] Pętla Policzenie elementów własnego typu

Witam.

Nawet nie wiem, czy dobrze napisałem tytuł, czy nie pomyliłem pojęc. Ale do rzeczy. Mam taki kod:

type TJednostki = (milimetr, centymetr, decymetr, metr, kilometr); var JednArray: array[0..4] of TJednostki;

I teraz czy da się w PĘTLI jakoś poprzypisywać do tablicy kolejne elemetry mojego typu?

Czyli aby osiągnąc taki efekt:

JednArray[0] := milimetr; JednArray[1] := centymetr; JednArray[2] := decymetr; JednArray[3] := metr; jednArray[4] := kilometr;

Tyle tylko żeby w pętli tak pododawac do tablicy. Da się tak?

---

var i:byte; begin for i:=0 to High(JednArray) do JednArray[i]:=TJednostki(i);

No ok dzieki, a jak zrobić to "w drugą strone" tzn, chciałbym uzyskać index np. elementu: metr, czyli w tym wyapdku 4 ?

dopisane: ok już problem rozwiązany. :P

dopisane 2: a jednak nie jest :P

Zrobiłem zbrór do powyższego typu danych w takiej postaci:

TKategorie = set of TJednostki;

....

i dalej

var male, duze: TKategorie; begin male := [milimetr, centymetr, decymetr]; duze := [metr, kilometr];

i jak moge uzyskać indeks elemetu w zbiorze? Czyli chcę sprawdzić indeks elementu decymetr w zbiorze male. Czyli powinienem uzyskać 2, ale jak to wygiągnąć?
Użytkownik programista1101 edytował ten post 06 kwiecień 2005, 12:38
hmmm trzeba petla i sprawdzac czy kolejny element=decymetr czy jakos tak ;)

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl