Inkompatible typen ???

[yildi]

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!

[fLaSh11]

mach um deine if-Statements Klammern

[Tormentor32]

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 :mrgreen:

[ManuMF]

oder viel einfacher mit case:

Delphi-Quellcode:

case grad of
   0..30: farbe := 'rot';
   30..70: farbe := 'gelb';
   // und so weiter
end;

[Tormentor32]

Delphi-Quellcode:

case grad of
   0..30: farbe := 'rot';
   31..70: farbe := 'gelb'; // <---------!!!
   // und so weiter
end;

Sonst kommt imho nen Fehler mit doppeltem Case Label oder so

[ManuMF]

Oh ja, sorry, hatte nicht daran gedacht.