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.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1