if-anweisung

Bockscar · Beiträge: 105

Guten Abend.

Delphi-Quelltext

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

   if Zahlen[Step] = 2 then
   begin
   Spielflaeche.Label1.Font.Color := clred;
   Spielflaeche.Label1.caption:=Format('Es ist die %2d gefallen',[Zahlen[Step]]);
   end
   else
   begin
   Spielflaeche.Label1.Font.Color := clyellow;
   Spielflaeche.Label1.caption:=Format('Es ist die %2d gefallen',[Zahlen[Step]]);
   end;

ich habe folgende frage dazu. Eigentlihc soll dieser stueckchen code bei mehr zahlen als bei der 2 die unterscheidung führen und diese zahlen sind in einem array zahlen ... es sind 37. Allerdings trifft es nur die hälfte der zahlen, die auch unregelmäßig verteilt sind, so dass ein <> nicht hilft.
mit if zahlen[step] in ['x','x','x','x'] geht ja nicht weil es keine chars sind.

Gibt es da etwas ähnliches?

alias5000 · Verfasst: So 12.02.06 00:11

ich versteh dich ganz schlecht....
[Magischer Kugelmodus]
Ich nehm mal an, dass du ungerade gelb zeichnen willst und gerade Zahlen rot.
Das kannst du ermitteln in dem du die Zahl durch zwei teilst und den Rest ermittelst. Ist der Rest 1, ist die Zahl ungerade, ist er 0, dann ist sie gerade:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

if (Zahlen[Step] mod 2 ) = 0 then begin
  {Labelk.Font.color = clRed; ....}
end else begin
  {das andere halt}
end;

[/Magischer Kugelmodus]

Gruß alias5000

Moderiert von alias5000: Tags korregiert und sich diesen Spaß erlaubt. Wir nicht mehr vorkommen.

_________________
Programmers never die, they just GOSUB without RETURN

Marc. · Verfasst: So 12.02.06 00:19

oder du machst es mit "odd" :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

if odd(Zahlen[Step]) then begin
  {Labelk.Font.color = clRed; ....}
end else begin
  {das andere halt}
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme