Cours de Turbo Pascal 7

Il peut être utile de pouvoir passer des paramètres en ligne de commande lors du lancement d'un programme.

La fonction ParamCount (de l'unité System) renvoie le nombre de paramètres passés en ligne de commande lors du lancement du programme, sous une valeur de type Word.

Syntaxe :

i := ParamCount;

La fonction ParamStr (également de l'unité System) renvoie la chaine passée en commande selon sa place i (word) dans l'index.

Syntaxe :

s := ParamStr(i);

Exemple :

Program Exemple23;

Uses 
  Dos ;

Var
  i : Word;
  f : Text;
  s : String;

Procedure Acces;
Begin
  WriteLn('OK');
  ...
End;

BEGIN
  Assign(f,'password.dat');
  Reset(f);
  if IOResult = 0 then
    begin
      ReadLn(f,s);
      if IOResult = 0 then
        begin
          if ParamStr(1) = s then
            Acces
          else WriteLn('Invalid password.');
        end
      else
        WriteLn('File read error.');
      Close(f);
    end
  else
    WriteLn('File open error.');        
END.

L'accès au programme Exemple23 est protégé par un mot de passe. C'est-à-dire que seul un code passé en ligne de commande (et contenu dans un fichier) permet à l'utilisateur de faire tourner le programme.