Per Zufall eine Zahl erzeugen und dann ein Ereignis

[lima]

Hallo, is schon lange her als ich in Delphi mal was gemacht habe, aber jetzt hats mich wieder gepackt.

und zwar will ich beim Programmstart eine zufällige Zahl zwischen 1 Minute und einer Stunde generieren lassen, die dann ein Timer übernimmt. Wenn der Timer abgelaufen ist, dann soll ein Ereignis stattfinden.

Das mit dem Ereignis ist jetzt nicht das Problem, nur die generierte Zahl in den Timer bringen, da weiß ich mir nicht zu helfen.

[DeddyH]

Delphi-Quellcode:

Timer.Interval := (Random(60) + 1) * 1000;

[edit] Interval im Englischen mit einfachem L *g* [/edit]

[divBy0]

Delphi-Quellcode:

randomize;

nicht vergessen.

[DeddyH]

Aber Randomize nur einmalig aufrufen (z.B. OnCreate). Nun sollte aber alles gesagt sein :zwinker:

[lima]

Muß ich dann das Ereignis in den Timer mit reinsetzen oder mach ich bei Form.Create einfach folgendes:

Delphi-Quellcode:

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := (random(3600)+60) * 1000; // 1 bis 60 Minuten
end;

P.S. Das Ereignis soll erst nach abgelaufener Zeit eintreten.

[ATSV]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
Timer1.Interval := (random(3600)+60) * 1000; // 1 bis 60 Minuten
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Ereignis;
end;

so müsste es sein

[Frankfurtoder]

Du musst die Prozedur um eine Zahl zu generieren erst starten und dann deine Ereignisse in die Prozedur vom Timer legen.

Delphi-Quellcode:

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

procedure TForm1.Button1click(Sender: TObject);
begin
  Timer1.Interval := (random(3600)+60) * 1000; // 1 bis 60 Minuten
  Timer1.enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //hier dein Ereignis
end;

Der Timer sollte also im Inspektor deaktiviert sein.

[lima]

Oh super, danke an alle Mitwirkenden!

[Frankfurtoder]

Nur nicht vergessen den Timer wieder zu stoppen, falls gewünscht.