Zufallfarbe

[Maduser]

Ich würde gerne eine Zufallfarbe generiern. Ich möchte aber gerne dazu eine Farbe zufaällig aus den 16 Standardfarben auswählen.
Gibt es dazu eine einfachen Weg (ohne ein array mit den 16 Farben zu bauen)?

[Ratte]

Ich hab' keine wie das geht (evt. über API?), aber was spricht denn gegen das Array?

Ratte

[Speedmaster]

Was Spricht dagegen ein Array aus 16 Farben zu verwenden, ich meine...ich bin ja schon faul, aber so faul kann man doch garnicht sein?!?!

Edit: War wieder einer schneller!

[Maduser]

Zitat:

Zitat von Speedmaster

Was Spricht dagegen ein Array aus 16 Farben zu verwenden, ich meine...ich bin ja schon faul, aber so faul kann man doch garnicht sein?!?!

Ja reine Faulheit und eigentlich hätte ich gedacht das es sowas gibt. Na dann werde ich ein Array schreiben.

Danke (das war aber wirklich fix)

[Oxmyx]

Was sollte es denn da geben? Delphi hat seinen Ruf als Klickibunti-Programmiersprache wirklich verdient...

[juergen]

was halt auch ginge (allerdings eben aufwendiger):
über Random eine Variable bis max 16 füllen lassen und dann per

Delphi-Quellcode:

if...then...else...

eine entsprechende Farbe zuweisen.

Gruß Jürgen

[Maduser]

Zitat:

Zitat von Oxmyx

Was sollte es denn da geben? Delphi hat seinen Ruf als Klickibunti-Programmiersprache wirklich verdient...

Na einfach ein Array mit den 16 Standartfarben.

[malo]

Zitat:

Zitat von juergen

was halt auch ginge (allerdings eben aufwendiger):
über Random eine Variable bis max 16 füllen lassen und dann per

Delphi-Quellcode:

if...then...else...

eine entsprechende Farbe zuweisen.

Gruß Jürgen

Lieber case :zwinker:

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... ;)

[Maduser]

Danke euch allen.

Ich habe das jetzt so gemacht

Delphi-Quellcode:

type
 TStandardFarben = array[0..15] of TColor;


const
  CStandardFarben: TStandardFarben = (clBlack, clMaroon, clGreen, clGreen,
    clOlive, clNavy, clPurple, clTeal, clGray, clSilver, clRed, clLime,
    clYellow, clBlue, clFuchsia, clAqua);

function GetRandomColor: TColor;
begin
  GetRandomColor := CStandardFarben[Random(15)];
end;

[Thorben77]

Zitat:

Zitat von Maduser

Delphi-Quellcode:

function GetRandomColor: TColor;
begin
  GetRandomColor := CStandardFarben[Random(15)];  // <--- so versuchst du, der Funktion einen Wert zu zuweisen
end;

So muss es sein:

Delphi-Quellcode:

function GetRandomColor: TColor;
begin
  Result := CStandardFarben[Random(15)]; // <-- Result ist der Rückgabewert der Funktion
end;

:wink:

Edit: Kann man in Quelltexten keine Farben benutzen? :gruebel: