Labelfarbe ändern, wenn...

[Chriss]

... etwas bestimmtes drin steht!

Hi @ all

folgendes:
ich habe ein label, in dem steht eine zahl, soweit, so gut... nur, wenn in dem label die zahl größer oder gleich 100 ist, soll die schrift rot, wenn die zahl größer oder gleich 50 ist gelb und wenn die zahl kleiner oder gleich 49 ist grün werden.
nur funkts das nicht, die schrift ist IMMER rot...
vielleicht hab ich im quelltext auch nen fehler gemacht?!:

Code:

if ges_mo.caption>='100' then
begin
ges_mo.font.color:=clred;
end
else
if ges_mo.caption>='50' then
begin
ges_mo.font.color:=clyellow;
end
else
if ges_mo.caption<='50' then
begin
ges_mo.font.Color:=clgreen;
end;

THX

Chriss

[CalganX]

Das liegt daran, dass du vergleichst, ob ein String mit einem anderen übereinstimmt (somit kannst du nicht > oder < verwenden).
Du müsstest also schreiben:

Delphi-Quellcode:

if IntToStr(Label1.Caption) >= 100 then // ...

Chris

[Chriss]

Fehler:

"Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann.



Hatte ich schon verscuht!

[Christian Seehase]

Moin Chriss,

StrToInt

[Chriss]

ahh, danke!!!

:coder:

[Jens Schumann]

Hallo,
der Code passt auch ganz gut zum Thema

Delphi-Quellcode:

Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+1);

[Marco Haffner]

Zitat:

Zitat von Chriss

Code:

if ges_mo.caption>='50' then
...
else
...
if ges_mo.caption<='50' then

Beim <= reicht auch ein <, denn =50 hast Du ja schon in der mitte überprüft und Du schreibst ja auch, kleiner oder gleich 49.

[Chriss]

ich hab nur das problem, dass ich mit den label noch rechnen muss, und sobald ich das mit der farbe mache, gibt der rechenfehler aus... geht also nicht so, wie ichs mir vorgestellt habe, egal, trotzdem danke!

[RomanK]

Hoi Chriss.
Zeig mal deinen Code ... weil die Farbe des Labeltextes dürfte da nichts ausmachen... :roll:

[Chriss]

es sind mehrere rechnungen drin:

vorrechnung:

Code:

ges_mo.caption:=floattostr(strtofloat(plan_mo_ges_fr.caption)+strtofloat(plan_mo_ges_ab.caption));

dann die endrechnung:

Code:

ges_ges.caption:=floattostr(strtofloat(ges_mo.caption)+strtofloat(ges_di.caption)+strtofloat(ges_mi.caption)+strtofloat(ges_do.caption)+strtofloat(ges_fr.caption)+strtofloat(ges_sa.caption)+strtofloat(ges_so.caption));

so, und da entsteht anscheinend ein konflikt, denn ich will, dass das label ges_mo eingefärbt wird:
rot, wenn über 100
gelb, wenn über 50 und
grün wenn unter 50