Labelfarbe ändern, wenn...

[Marco Haffner]

Ich denke nicht, das in diesem Fall case angebracht wäre.
Er will ja größer oder gleich 100, größer oder gleich 50 und kleiner gleich 49 abfragen. Es steht aber nicht da, welche Werte möglich sind, also kleiner 0 oder wie weit über die 100 hinaus. Aber mal angenommen der kleinste mögliche Wert ist 0, dann müßte es eigentlich so aussehen:

Delphi-Quellcode:

case StrToInt(ges_mo.caption) of
  0..49: ges_mo.font.Color := clLime;
  50..99: ges_mo.font.Color := clYellow;
else
  ges_mo.font.Color := clRed;
end;

Zahlen kleiner als 0 würden hier dann aber auch in rot angezeigt.