My little test script don't stop...
Posted: 2009-07-20 18:29:14
Hello,
I am a beginner in Pascal script language and i have a first problem.
Why this small script don't stop on execution ?
I research on the net the 'Innerfuse Pascal Script Documentation', but i can't find anything...
Can you help me ?
Thank !
François
I am a beginner in Pascal script language and i have a first problem.
Why this small script don't stop on execution ?
I research on the net the 'Innerfuse Pascal Script Documentation', but i can't find anything...
Can you help me ?
Thank !
François
Code: Select all
(* Test Script *)
program Synchro;
var
LstDir: TStringList;
compteur: String;
begin
LstDir := TStringList.Create;
LstDir.Text := ListDirectory('Y:\Video\Films','*.*');
compteur := FloattoStr(LstDir.Count);
showmessage(compteur+' lignes');
LstDir.Free;
end.