< und > deklarieren oder sowas

[DGL-luke]

Delphi-Quellcode:

type
  TFarbe = (schell, herz, gruen, kreuz);
  TWert =  (6,7,8,9,10,U,O,K,Sau);
  TKarte = record
    farbe: TFarbe;
    Wert: TWert;
  end;

jetzt sollte es schon möglich sein zu sagen

Delphi-Quellcode:

var karte1,karte2: TKarte;

if (karte1.farbe < karte2.farbe) or ((karte1.farbe = karte2.farbe) and (karte1.wert < karte2.wert)) then
  Showmessage('Karte1 weniger wert als Karte2!');

Wenn aber
Ansonsten musst du dase alles nach integer casten, also Delphi sagen, es soll die variable wie eine zahl behandeln:

if (Integer(karte1.farbe) < Integer(karte2.farbe)) ...... //usw. usf.