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
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 von Mothergrayham:

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

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

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

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.