Case-Auswahl

van RanDahlE · Hält's aus hier Beiträge: 15

Wie man ne Case - Auswahl macht weiß ich..aber wie mache ich das zu nem Zufall, dass der das per Zufall aussucht?

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Über die funktion Random(range) //zahl zwischen 0 und range-1 bekommst du deine Zufallszahl, die du direkt ans case-Statement übergeben kannst. Du solltest den Zufallsgenerator vorher per Randomize initialisieren, es reicht, das ein einziges Mal, z.B. im FormCreate zu machen. Das muss wirklich nur 1 mal pro Programm aufgerufen werden

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

TProgger · Beiträge: 148 XP D6, D2007 prof

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

x:=Random(10)+1;
case x of
  1: ; //was tun
  2: ; //was tun
  3: ; //was tun
  4: ; //was tun
  5: ; //was tun
  6: ; //was tun
  7: ; //was tun
  8: ; //was tun
  9: ; //was tun
  10: ; //was tun
end

Meinst du sowas?

_________________
Wir haben für jede Lösung das richtige Problem

ub60 · Beiträge: 765 Erhaltene Danke: 130

markieren

Delphi-Quelltext

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

Anzahl:=5;
case Random(Anzahl) of
  0: TueWas0;  
  1: TueWas1;  
  2: TueWas2;
  3: TueWas3;
  4: TueWas4;
end;

ub60

Oh, TProgger war schneller;-(

Calculon · Verfasst: Fr 16.11.07 13:30

Mal'n Bsp.:

markieren

Delphi-Quelltext

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

procedure RandomCase;
var
  zufallswert: integer;
begin
  zufallswert := random(2) + 1;
  case zufallswert of
    1: ShowMessage('1');
    2: ShowMessage('2');
    3: ShowMessage('3');
  end;
end;

Gruß

EDIT: :lol:

Calculon
--

TProgger · Beiträge: 148 XP D6, D2007 prof

ähm... random(2)+1 wird nie 3, random(2) zieht nur 0 oder 1

*anmerk*

_________________
Wir haben für jede Lösung das richtige Problem

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Da versucht man, ja keinen komplett copy & paste-fähigen Code zu schreiben und was machen die 3 direkt nach dir ... ? :roll:

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Herr Bananerama · Beiträge: 130

ub60 hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:

Anzahl:=5;
case Random(Anzahl) of

Deine Lösung versteh ich nicht ... wieso machst du Case Random(Anzahl) of ... das Random musst du doch der Anzahl zuweisen oder?

Moderiert von Narses: Zitat repariert

van RanDahlE · Hält's aus hier Beiträge: 15

Danke leutz..ihr habt mir echt geholfen

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Herr Bananerama hat folgendes geschrieben:

Deine Lösung versteh ich nicht ... wieso machst du Case Random(Anzahl) of ... das Random musst du doch der Anzahl zuweisen oder?

markieren

Delphi-Quelltext

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

Anzahl:=5;
case Random(Anzahl) of
//ist das selbe wie
Anzahl := 5;
Zufall := Random (Anzahl);
case Zufall of
//ist das selbe wie
case Random (5) of
// etc.

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme