Random

[Mothergrayham]

Hallo ich bin ganz frisch bei Delphi bei.

Wollte nur mal wissen ob es mit dem random befehl möglich ist aus dem Hauptfenster raus z.b. ein zufälliges von 10 verschiedenen neuen Fenstern aufzumachen?

würde mich über ne antwort freuen.

[Luckie]

Und was soll an dieser Aktion zufällig sein? Die Anzahl oder die Position? In einer Schleife kann man natürlich weitere Fenster dynamisch erstellen.

[Jens Hartmann]

Hallo erstmal,

Möglich ist das. Wenn Du z.B. deinen Fenstern die Namen Form1,Form2,Form3... gibst, könntest Du mit

Delphi-Quellcode:

Form+IntToStr(i);

Die Form wählen.

Gruß Jens

[Luckie]

Ach jetzt verstehe ich das. Du hast schon zehn Fenster und du willst eins davon zufällig anzeigen.

Erseuge sie alle beim Start dynamisch und unsichtbar und leg die Instanzen in einem Array ab. Dann kannst du mit random einen Index generieren und diese Instanz dann sichtbar machen. Gleiches ginge natürlich auch etwas eleganter Mit einer TObjectList.

[Namenloser]

Würde ich zwar normal auch so machen, aber für einen Anfänger ist diese einfachere Variante vielleicht durchschaubarer:

Delphi-Quellcode:

RandomValue := random(10);
case RandomValue of
  0: Form1.Show;
  1: Form2.Show;
  2: Form3.Show;
  3: Form4.Show;
  4: Form5.Show;
  5: Form6.Show;
  ...
end;

Geht natürlich auch ohne die Variable, indem man random(10) direkt in die Case-Abfrage einsetzt.

[Wolfgang Mix]

und vorher

Delphi-Quellcode:

Randomize

nicht vergessen, sonst wird's nicht wirklich zufällig :-)

Gruß

Wolfgang

[DeddyH]

Aber Randomize nur einmalig aufrufen (etwa im FormCreate).

[Mothergrayham]

hab das jetzt so gemacht aber da ist irgendwo ein fehler drin

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
RandomValue := random(10);
case RandomValue of
0: Form1.Show;
1: Form2.Show;
2: Form3.Show;
end;

[holliesoft]

Zitat:

Zitat von Mothergrayham

hab das jetzt so gemacht aber da ist irgendwo ein fehler drin

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;

Zitat:

Zitat von DeddyH

Aber Randomize nur einmalig aufrufen (etwa im FormCreate).

Dass Du nicht das gemacht hast, was DeddyH empfohlen hast, ist schon mal der erste Fehler :mrgreen:

Welche Fehlermeldung bekommst Du denn? Das ist nämlich die wichtigste Info die Du vergessen hast...

Hast du denn die Units der aufzurufenden Forms der aktuellen Unit hinzugefügt?

Gruß
Patrick

[Mothergrayham]

ich hab doch nur einmal randomize geschrieben.

kommt der fehler "undefinierter bezeicher: randomvalue"

bitte nicht so viele fachausdrücke bin da noch nicht so drin.

[DeddyH]

Das Randomize packst Du zuerst einmal ins FormCreate, dann wird es nur einmal ausgeführt ;). Und RandomValue hast Du ja auch nicht als Variable deklariert (es geht aber auch ohne diese Variable).

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Randomize; weg, ins FormCreate damit
  case random(10) of
    0: Form1.Show;
    1: Form2.Show;
    2: Form3.Show;
  end;//das end zum case
end;

[holliesoft]

Zitat:

Zitat von Mothergrayham

ich hab doch nur einmal randomize geschrieben.

kommt der fehler "undefinierter bezeicher: randomvalue"

bitte nicht so viele fachausdrücke bin da noch nicht so drin.

Na ja, ich meinte eigentlich das hier:

Zitat:

(etwa im FormCreate).

Sonst wird das ja jedes mal beim ButtonClick aufgerufen.

Die Fehlermeldung bedeutet, dass Du die Variable RandomValue nicht deklariert hast.

Es fehlt:

Delphi-Quellcode:

var
  RandomValue: Integer;

vor dem begin.

Gruß
Patrick

//Edit: wo ist der rote Kasten, wenn man ihn braucht? :roll:

[Matze]

Zitat:

Zitat von Mothergrayham

ich hab doch nur einmal randomize geschrieben.

Aber deine Prozedur wird beim Klick auf den Button komplett durchlaufen und somit wird bei jedem Klick "Randomize" aufgerufen. Es sollte pro Anwensungsstart allerdings nur einmal aufgerufen werden, egal wie oft "Random" folgt. Also packe "Randomize" ins OnCreate deines Formulars.

Wenn du "Random(10)" schreibst, wird dir eine Zufallszahl zwischen 0 und 9 zurückgegeben. Für deinen Testfall mit 3 Formularen müsstest du "Random(3)" nutzen. Denn wenn der Wert aktuell bsp. 5 ist, wird kein Formular aufgerufen. Vielleicht ist das schon der Fehler.

Edit: Hö, der rote Kasten scheint wirklich im Urlaub zu sein.

[DeddyH]

[OT] Der Opa war schneller :mrgreen: [/OT]

[Mothergrayham]

wenn du mir jetzt noch sagst was oder wo formcreate ist? in der unit steht davon nix.

[DeddyH]

Mach mal in der IDE einen Doppelklick auf das Formular ;)

[Mothergrayham]

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

RandomValue : random(3);
case RandomValue of
0: Form1.Show;
1: Form2.Show;
2: Form3.Show;
end;

jetzt sieht das so aus aber den fehler macht er immer noch

[DeddyH]

Sei mir nicht böse, aber ein Grundlagentutorial erscheint mir angebracht. Nichtsdestotrotz:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var RandomValue: integer; //Deklaration der Variablen
begin
  RandomValue := random(3);
  case RandomValue of
    0: Form1.Show;
    1: Form2.Show;
    2: Form3.Show;
  end; //dieses end darf nicht weggelassen werden
end;

[Mothergrayham]

das klappt super ich danke euch. kann ich das jetzt mit unendlich vielen fenstern machen?

wenn ich euch dann richtig verstanden habe muss ich einfach die zahl in klammern hintern random verändern?

[DeddyH]

Zwischen die Klammern setzt Du die Anzahl der verfügbaren Formulare. Allerdings musst Du nach dieser Vorgehensweise auch für jedes Formular ein case-Label schreiben.

[Matze]

Zitat:

Zitat von Mothergrayham

kann ich das jetzt mit unendlich vielen fenstern machen?

Nein, da u.a. dein Speicher begrenzt ist. :stupid:

Und hier noch die angesprochenen Grundlagentutorials. Speziell der Crashkurs ist hilfreich.

[Mothergrayham]

okay das versteh ich soll erst mal nicht das problem sein für den anfang.

eine frage habe ich aber jetzt noch das immer das gleiche formular zuerst kommt. hab jetzt gelesen das wenn man hinter die klammer ne +1 macht, das formular wirklich zufällig kommt. bei mir ist jetzt aber das problem das ein formular garnicht mehr kommt.

okay unendlich war jetzt etwas übertrieben lol. aber meinetwegen 100 oder so.

[DeddyH]

Zitat:

Zitat von Mothergrayham

hab jetzt gelesen das wenn man hinter die klammer ne +1 macht, das formular wirklich zufällig kommt.

Wo steht denn das? Schau doch lieber einmal im Debugger nach, ob das Randomize auch wirklich aufgerufen wird, z.B. durch Setzen eines Haltepunkts.

[Matze]

Hallo,

du musst versuchen den Code zu verstehen!

random(3) gibt eine Zufallszahl zwischen 0 und 2 aus. Wenn du nun random(3)+1 schreibst, wird eben immer 1 dazu addiert. Somit erhälst du eine Zufallszahl zwischen 1 und 3. Mehr nicht.

Willst du es nun zufällig haben oder nicht? :gruebel:
Wenn beim 1. Aufruf immer das gleiche Formular erscheinen soll und bei allen weiteren ein zufälliges, dann kannst du eine boolsche Variable wie "FirstClick" einführen. Diese setzt du bsp. zu Beginn auf "true". Dann fragst du sie bei jedem Klick ab. Ist sie "true", wird das bestimmte Formular angezeigt und du setzt sie auf "false". Ist sie "false" wählst du zufällig ein Formular aus.
Wie das per Code umzusetzen ist, kannst du in den verlinkten Tutorials nachlesen (oder aus meiner Beschreibung heraus).

Grüße

[Mothergrayham]

ne sollte schon zufällig sein. hab jetzt einfach mal 10 gemacht zum gucken und das funzt schon. ich danke euch. ich meld mich wieder bei problem.

[Wolfgang Mix]

Klicke 'mal irgendwo ins Formular, dann wird die leere Prozedur erzeugt.

Gruß

Wolfgang

[Matze]

Zitat:

Zitat von Wolfgang Mix

Klicke 'mal irgendwo ins Formular, dann wird die leere Prozedur erzeugt.

Ich glaube du hast Seite 2 des Themas hier übersehen. ;)

[DeddyH]

Jepp, scheint so, ist mir aber auch schon passiert :zwinker:

[Wolfgang Mix]

OOPS ;-)

[Luckie]

Klick das Formular an, dann wechselst du in den Objekinspektor und dort auf den Seitenreiter mit den Ereignissen, dann klickst du doppelt neben das Feld OnCreate. Deie IDE erstellt dir dann automatisch die Deklaration des Ereignisses und den Prozedurrumpf. Dort kannst du dann deinen Code reinschreiben.

[Matze]

OT: :lol:

[DeddyH]

So langsam sollte das aber nun oft genug erklärt worden sein :stupid:

[Oldy]

oder

Delphi-Quellcode:

[..]
var zeigeform: TForm;
begin
zeigeform:=FindComponent(form+inttostr(random(10)) as Tform;
zeigeform.show;
end;

Habs nicht getestet, müsste aber meines Erachtens funktionieren..

(sry dass ich das so spät schreib, aber 310 RSS-Feeds durchzusehen dauert eine weile.. :D)