Program to test system.pas unit
14 Aug 96 04:01:06 EDT
Here a small program which 'demonstrates' the use of the system.pas unit.
-------------------------test.pas------------------------
#include "system.pas"
program Test(Output);
import
System;
var
f: text;
path: string(1024);
i: integer;
begin
Assign(f, 'tmp.tmp');
Erase(f);
writeln('IOResult = ', IOResult);
Assign(f, 'q.pas.bak');
BPRename(f, 'renamed.file');
writeln('IOResult = ', IOResult);
GetDir(0, path);
writeln('Current dir = ', path);
BPMkDir('mydir');
writeln('IOResult = ', IOResult);
BPRmDir('mydir');
writeln('IOResult = ', IOResult);
writeln('ParamCount = ', ParamCount);
for i := 1 to ParamCount do begin
writeln('parameter ', i, ' = ', ParamStr(i));
end;
end.
-------------------------test.pas------------------------
Groetjes,
Berend. (-:
Berend de Boer (100120.3121@CompuServe.COM)
HTML conversion by Lluís de Yzaguirre i Maura
Institut de Lingüística Aplicada -
Universitat "Pompeu Fabra"
e-mail: de_yza@upf.es