Ordinaltyp für Werkzeug

[TheAn00bis]

Hi,

ich will in einer Variable das ausgewählte Werkzeug speichern (z.B. "Schere" oder "Stift"). Allerdings kann ich keinen String nehmen, da ich die Variable später für eine case -Fallunterscheidung nutzen will. Welchen Variablen-Typ kann ich nutzen?

[glkgereon]

du könntest byte nehmen und dir konstanten machen

Delphi-Quellcode:

const
  Zeiger = 0;
  Schere = 1;
  Stift = 2;
//etc...
var  
  Werkzeug:byte;

[dizzy]

Und noch schöner wäre eine Enummeration:

Delphi-Quellcode:

type
  TWerkzeug = (wSchere, wHammer, wKettensaege, ...);
.
.
var
  werkzeug: TWerkzeug;

Gruss,
Fabian

[Poolspieler]

Ich würde einen Aufzählungstypen nehmen...:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
type Suit = (Club, Diamond, Heart, Spade);
var
  Card1: Suit;
  Card2: Suit;
begin
  Card1 := Club;
  Card2 := Diamond;
  if Card1 = Club then showmessage('Card1=Club') else showmessage('Card1!=Club');
  if Card2 = Heart then showmessage('Card2=Heart') else showmessage('Card2!=Heart');
end;

Gruß

Poolspieler

[Poolspieler]

Da ist mir wohl jemand zu vor gekommen :P

[TheAn00bis]

Danke, so eine 'Enummeration' habe ich gesucht!