if then bedingungen

kidel · Hält's aus hier Beiträge: 3

moinsen

ich möchte einer variablen ein bestimmten wertebereich zuordnen, wie schreibt man das formal richtig:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if c<20 then Panel1.Color := clAqua;
if 20<c<40 then Panel1.Color := clred;
if 40<60 then Panel1.Color := clblack;
if 60<c<80 then Panel1.Color := clmaroon;
if 80<c<100 then Panel1.Color := clgreen;
if 100<c<200 then Panel1.Color := clolive;
if 200<c<300 then Panel1.Color := clnavy;
if 300<c<400 then Panel1.Color := clpurple;
if 400<c<500 then Panel1.Color := clteal;
if 500<c<600 then Panel1.Color := clgray;

angezeigter Fehler:

[Fehler] Unit1.pas(59): E2008 Inkompatible Typen

Moderiert von Christian S.: Delphi-und Quote-Tags hinzugefügt.
Moderiert von Christian S.: Topic aus Sonstiges verschoben am Fr 17.06.2005 um 19:04

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:	if (20<c) and (c<40) then Panel1.Color := clred;

Besser:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

case c of
  0..20:;
  21..40:;
  41..60:;
  ...
end;

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Hallo und

hier im Delphi-Fourm.de!

kidel hat folgendes geschrieben:

ich möchte einer variablen ein bestimmten wertebereich zuordnen

markieren

Delphi-Quelltext

1:
2:

if (c > 20) and (c < 40) Then
  Panel1.Color := clAqua;

Gruß
Tino

kidel · Hält's aus hier Beiträge: 3

thx...

Spaceguide · Beiträge: 552 (D3/D7/D8) Prof.

Was machst du an den undefinierten Werten wie 20,40,60,...? Ich empfehle bei der unteren Grenze mit >= bzw. <= und bei der oberen Grenze mit < zu vergleichen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme