hallo!
ich habe die folgende prozedur:
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;
beim compilieren bekomme ich 6 meldungen "inkompatible typen" und der cursor springt zum "then".
hat jemand auf den ersten blick eine idee was hier falsch ist ?
vielen dank!