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