Title Stream PAL

[Perry Scott]

Hey Forummers,
Lange tijd geleden ja zelfs zolang dat mijn oude naam "Discoline" niet meer werkte
Maar ik heb een vraag over een PAL script wat ik weer wilde gebruiken.

Het gaat om dit script:

Code: Selecteer alles

PAL.loop := True;

while DayOfWeek(Now) = Friday and ((Now >= T['22:00:00']) and (Now <= T['23:59:58'])) do
 begin
while DayOfWeek(Now) = Saturday and ((Now >= T['22:00:00']) and (Now <= T['23:59:58'])) do
 begin
while DayOfWeek(Now) = Sunday and ((Now >= T['22:00:00']) and (Now <= T['23:59:58'])) do
 begin

var Song : TSongInfo;
Song := TSongInfo.Create;
Song['artist'] := 'NuDisco Club';
Song['title'] := 'The Best NuDisco Tracks Nonstop';
Encoders.SongChange(Song);

 end; 

Ik had het automatisch aangevinkt maar er gebeurde niks
Toen ik het met de hand aanzette ging het wel goed

Zit er ergens een fout in of doe ik iets verkeerd

Grt, Perry

[Wout]

Elke BEGIN heeft ook een END;.
Je bent met 3 BEGIN begonnen en er is maar 1 END aanwezig. Door 2 END; er bij te doen zal het probleem zich oplossen.

Dezelfde idee achter je code maar dan versimpeld.

Code: Selecteer alles

PAL.loop := True ;

VAR Song : TSongInfo ;
Song := TSongInfo.Create ;
Song['artist'] := 'NuDisco Club' ;
Song['title'] := 'The Best NuDisco Tracks Nonstop' ;

WHILE (Now >= T['22:00:00']) AND ( (DayOfWeek(Now) >= 6) OR (DayOfWeek(Now) = 1) ) DO
BEGIN
    Encoders.SongChange(Song) ;
    PAL.WaitForTime('+00:00:05') ;
END ;

PAL.WaitForTime('+00:00:05') ;

{
Sunday    : Integer = 1;
Monday    : Integer = 2;
Tuesday   : Integer = 3;
Wednesday : Integer = 4;
Thursday  : Integer = 5;
Friday    : Integer = 6;
Saturday  : Integer = 7;
}