writeln clear

[superpeter]

hallo allemaal
ik gebruik in een PAL script het volgende comandow: writeln
deze gebruik ik om bij output wat info neer te zetten van een aantal variabele in men script.
echter wil ik het output veld af en toe leeg maken zodat je geen HELE langen rits met info krijg.
kan iemand me vertellen hoe ik dat output veld leeg kan laten maken van uit men PAL script?

groeten: peter

[Wout]

De output ververst (leeg) naarmate de PAL weer herstart.
Een andere manier om de output te legen is er niet.

Maar waarom wil je steeds de hele variabele zien? Is het ook voldoende om het in één keer te laten zien.
Kan je anders je PAL posten, misschien dat ik iets zie wat je kan helpen.

[superpeter]

natuurlijk kan ik de hele PAL posten
en um dat ik de output wil kunnen zien is omdat ik wil controleren of de variabele goed ge laden worden/zijn.
dit hoeft overigens niet bij output te staan mocht het mooier/makkelijker zijn met bv een pop-up venstertje te doen of mijn part in een txt filetje die iedere keer op nieuw ge schreven word is het mij ook goed.
want bij een txttje zou ik bij wijze van spreken een uitvoerbaar html bestandje kunnen maken die om de 30 siconden refrescht en de inohoud uit het txttje haard.
als ik maar de meeste recente info te zien krijg die nu dus bij output word weer gegeven .

Code: Selecteer alles

var JIN : Integer = 1;
var rq : Integer = 1;
PAL.Loop:=True;
repeat
PAL.LockExecution;

	var tijd, uur, prog, day : string;
	var QueueTime : Integer = (60*60*1000);
	var D : DateTime;
    var Song : TSongInfo;
Song := Req.QueueTop;
	   D := T['+01:00:00'];
 tijd := FormatDateTime('hh', D);
 day := FormatDateTime('ddd', D);

 tijd := tijd - 01;

	begin
		     if ((tijd >= '07') and (tijd <  '09')) then
       begin
       prog := 'kids';
       	rq :=  1;
       	end
       
		else if ((day >= 'Mon') and (day < 'Fri') and (tijd >= '14') and (tijd <  '16')) then
  begin
  prog := 'outjes';		
			rq :=  1;
       	end
  else
  begin
prog := 'muziek';
	rq :=  1;
       	end;
	end;

	D := T['XX:59:54'];
WriteLn(prog);
WriteLn(JIN);
WriteLn(D);
WriteLn(tijd);
WriteLn(day);

if (Queue.IsEmpty = true) then
begin
if rq = 1 then
begin
   if Song <> nil then
begin
writeln('Added request to queue:');
writeln(Song['filename']);
Song.Free; {Dispose of the song object}
end
else begin
Cat[prog].QueueBottom(smRandom, EnforceRules);	
writeln('no request')
end;	
end
else begin
Cat[prog].QueueBottom(smRandom, EnforceRules);
end;
		
					JIN := JIN + 1;
					if (JIN = 3) then
						begin
							Cat['jingels'].QueueBottom(smLRP, NoRules);
							JIN := 0 ;
						end;						

end;
PAL.WaitForPlayCount(1);	
until (JIN = 10);
PAL.UnLockExecution;

groeten: peter