Forum: Sonstige Fragen zu Delphi
by DeddyH,
12. Sep 2009
So langsam sollte das aber nun oft genug erklärt worden sein :stupid:
Forum: Sonstige Fragen zu Delphi
by DeddyH,
12. Sep 2009
Jepp, scheint so, ist mir aber auch schon passiert :zwinker:
Forum: Sonstige Fragen zu Delphi
by DeddyH,
12. Sep 2009
Wo steht denn das? Schau doch lieber einmal im Debugger nach, ob das Randomize auch wirklich aufgerufen wird, z.B. durch Setzen eines Haltepunkts.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
12. Sep 2009
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.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
12. Sep 2009
Sei mir nicht böse, aber ein Grundlagentutorial erscheint mir angebracht. Nichtsdestotrotz: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
Forum: Sonstige Fragen zu Delphi
by DeddyH,
12. Sep 2009
Der Opa war schneller :mrgreen:
Forum: Sonstige Fragen zu Delphi
by DeddyH,
12. Sep 2009
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).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...
Forum: Sonstige Fragen zu Delphi
by DeddyH,
12. Sep 2009
Aber Randomize nur einmalig aufrufen (etwa im FormCreate).