Delphi-Quellcode:
procedure TForm1.GradInFarbeUmwandeln(grad: integer);
var
farbe: string;
begin
if (grad >= 0) and (grad <= 30) then farbe := 'rot'
else if (grad >= 30) and (grad <= 70) then farbe := 'gelb'
else if (grad >= 70) and (grad <= 150) then farbe := 'gruen'
else if (grad >= 150) and (grad <= 220) then farbe := 'cyan'
else if (grad >= 220) and (grad <= 270) then farbe := 'blau'
else if (grad >= 270) and (grad <= 0) then farbe := 'rot';
label13.caption := farbe;
end;
Versuchs mal so!
Edit: Verdammt ich hab so schnell geschrieben wie ich konnte
