Fehlermeldung "zugewiesener Wert wird niemals benutzt"?

[Popov]

EWeiss hat Recht, das könnte man auch so lösen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  Col: array[0..8] of TColor = (clblue, clyellow, clgreen, clblue, clfuchsia,
    clred, clskyblue, clteal, clteal); //Farben
var
  i, rAnzahl, rVerzogerung, x, y, rDicke :integer;
begin
  randomize ;

  rAnzahl:= StrToInt (E_Anzahl.Text);
  rVerzogerung:= StrToInt (E_Pause.Text);

  for i:=1 to rAnzahl do
  begin
    x:= random (800);
    y:= random (800);
    rDicke:= random (30);

    if ColorRadioGroup.ItemIndex > -1 then // In RadioGroup alle 9 Farben auflisten
      Canvas.Brush.Color := Col[ColorRadioGroup.ItemIndex] or random (8000000)
    else
     Canvas.Brush.Color := clBlack;

    Canvas.Ellipse(x,y, x+rDicke, y+rDicke) ;
    sleep (rVerzogerung);
  end;
end;

Nur was soll das bewirken?

Delphi-Quellcode:

... or random (8000000)
...

[EWeiss]

Zitat:

Nur was soll das bewirken?

Ich denke mal er will dann eine Farbe im Bereich "8000000" ausgeben.
Meine Meinung dazu! Ist völliger Quatsch da kann man direkt Random(8000000) verwenden
und sich den ganzen anderen Kram mit Radio Button und Checkboxen sparen.

Entweder man definiert oder möchte eine feste Farbe festlegen oder man verwendet Random.. für eine beliebige.
Ich sehe zumindest keine Logik hinter der Verwendung "or Random(8000000)"

gruss

[himitsu]

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)