Aufzählungstypen

[tn249]

Zitat von Amateurprofi:

Ich vermute, du möchtest wissen, wieviel benannte Elemente Dein Typ hat - sorry fällt mir keine Lösung ein.

Gruß, Klaus

Ja das würde ich gerne wissen. Ich wusste nicht, dass die Elemente trotzdem "DA" sind wenn sie keinen Namen haben.

Trotzdem danke
Gruß
Thomas

PS:

Jetzt weiß ich auch warum derhier nicht geht;

Delphi-Quellcode:

procedure TMainForm.Button5Click(Sender: TObject);
var
  Value: Integer;
  Elements: Integer;
begin
  Value := Ord(Low(TtnCardFace));
  Elements := 1;
  while (Value <> Ord(High(TtnCardFace))) do
    begin
      Value := Succ(Value);
      Inc(Elements);
    end;
  ShowMessage(IntToStr(Elements));
end;

edit2: Ergebnis ist auch hier 23