Hallo Holger,
auf den ersten Blick ist Deine Anforderung nicht sehr intelligent, aber ich vermute Du hast Dir etwas dabei gedacht, darum kein Verweis auf case/</>......
Dunkel kann ich mich erinnern das zu
TP-Zeiten schon einmal jemand dieses Ansinnen hatte und das wurde dann mit einer Vergleichsfunktion gelöst. etwa so:
Delphi-Quellcode:
if VERGLEICHE(a,b).....
function VERGLEICHE (Wert1,Wert2);
begin
if regewetter then
if wert1=wert2 then result:=true;
if Schnee then
if wert1<>Wert2 then result:=true;
......
end;
Gruß
K-H