Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#23

AW: Fehlermeldung "zugewiesener Wert wird niemals benutzt"?

  Alt 20. Mai 2015, 05:23
Bei einer RadioBox/RadioGroup kann man die Else weg lassen, bzw. gleich ein CASE verwenden.

Bei den IFs muß man aufpassen, denn ohne ELSE dreht sich die Auswertungsreihenfolge um, wenn mehr als eine Checkbox aktiviert ist.
Delphi-Quellcode:
if C_blau.Checked then
  Canvas.Brush.Color := clblue or random (8000000)
else if C_Gelb.Checked then
  Canvas.Brush.Color := clyellow or random (8000000)
else if C_gruen.Checked then
  Canvas.Brush.Color := clgreen or random (8000000)
...
else
  Canvas.Brush.Color:= clblack;
Delphi-Quellcode:
Canvas.Brush.Color:= clblack;
...
if C_gruen.Checked then
  Canvas.Brush.Color := clgreen or random (8000000)
if C_Gelb.Checked then
  Canvas.Brush.Color := clyellow or random (8000000)
if C_blau.Checked then
  Canvas.Brush.Color := clblue or random (8000000)
$2B or not $2B

Geändert von himitsu (20. Mai 2015 um 05:38 Uhr)
  Mit Zitat antworten Zitat