Random Funktion Problem

Deutsch / German Allgemein
1

Habe Problem mit der Random Funktion.
Und zwar wird immer die gleiche Datei eingefügt [1].
Was mache ich falsch?

EDIT: Stimmt nicht ganz, es wird immer [1] oder [2] ausgewählt, nie aber [0]

[code]var
i: integer;
filename: Array[0…2] of string;

begin

filename[0] := ‘Werbung_1~c.mp3’;
filename[1] := ‘Werbung_2~c.mp3’;
filename[2] := ‘Werbung_3~c.mp3’;

i := Random(2);

try
CurrentPlaylist.InsertFile(0, ‘D:\Werbung’ + filename[i]);
except
end;
end.
[/code]

2

Zunächst: Wenn du Zahlen zwischen 0 und 2 willst, wäre “Random(3)” richtig. Random(x) gibt immer Zahlen i mit 0 <= i < x zurück.

Zweitens, bei mir funktioniert der Zufallsgenerator prächtig. Mit folgendem Script getestet:

var
  i: integer;

begin
  for i := 0 to 100 do
    SystemLog(IntToStr(Random(3)));
end.
3

Ja stimmt,

hab’s eben auch gemerkt. Habe das von andern Scripts hier im Forum abgekupfert…
Tja, dann haben die aber das Gleiche Problem dass [0] nie drankommt.

Gruss:
-Serge-

4

Tja, haben die sich wohl verprogrammiert :slight_smile:

5

Scheint so ;D

Frage noch zu:

CurrentPlaylist.InsertFile(0, 'D:\Werbung\' + filename[i]);

Gibt’s da nix was die Datei nicht nur einfügt sondern auch gleich startet wie:

CurrentPlaylist.PlayFile... oder CurrentPlaylist.StartNext...
oder ähnlich?

6

AutomationNext

7

Danke!

Gruss:
-Serge-