Zufallfarbe

[malo]

Zitat von juergen:

was halt auch ginge (allerdings eben aufwendiger):
über Random eine Variable bis max 16 füllen lassen und dann per if...then...else... eine entsprechende Farbe zuweisen.

Gruß Jürgen

Lieber case

Delphi-Quellcode:

procedure xyz;
var
  EineDummeZufallsZahlFuerDieFarbe: byte;
begin
  EineDummeZufallsZahlFuerDieFarbe := Random(15);
  case EineDummeZufallsZahlFuerDieFarbe of
    0: Farbe := clRed;
    1: Farbe := clBlue;
    //immer so weiter
    15: Farbe := clBlack;
  end;
end;

So in etwa...