Program to test system.pas unit

14 Aug 1996


      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

tags

participants (1)