home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / mos / exemples / txt_src / selector.pas < prev    next >
Pascal/Delphi Source File  |  1994-09-11  |  2KB  |  50 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║          EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE TEXTE        ║
  3.  ╠══════════════════════════════════════════════════════════════════════════╣
  4.  ║                   OBTENTION D'UN REQUESTER DE FICHIERS                   ║
  5.  ╠══════════════════════════════════════════════════════════════════════════╣
  6.  ║ Coded by Zuul as BouFFtou as Cheveau Frédéric.                           ║
  7.  ║ Programmé à l'IUT de Montpellier sur Turbo Pascal V7.00.                 ║
  8.  ║ Contact us on 36.14 RTEL1 - Bal "BouFFtou" or Bal "ICF".                 ║
  9.  ╚══════════════════════════════════════════════════════════════════════════╝}
  10.  
  11. {$M 64000,0,365520}                     {*Stack and Heap*}
  12. Program EXEMPLE;
  13.  
  14. Uses Crt,
  15.      ZUUL_MSE,                          {*Unités Nécessaires*}
  16.      ZUUL_COL,
  17.      ZUUL_DIR;
  18.  
  19. {╔═══════════════════════════════════════════════════════════════════════════╗
  20.  ║                           PROCEDURE PRINCIPALE                            ║
  21.  ╚═══════════════════════════════════════════════════════════════════════════╝}
  22.  
  23. Procedure MAIN;
  24. Var  DirSel,FilSel:String;                      {*Directory et Nom Fichier*}
  25.      Size         :Longint;                     {*Size du Fichier Chargé*}
  26.      X0,Y0         :Word;                       {*Save Pos Curseur for Resto*}
  27.  
  28. Begin
  29. X0:=WhereX; Y0:=WhereY;                         {*Capture Position du Curseur*}
  30. CursOff;                                        {*Cache le Curseur*}
  31. DirSel:=''; FilSel:='';
  32. GIVEDIR(15,5,Size,DirSel,FilSel);               {*Obtention du Requester*}
  33. Gotoxy(X0,Y0);                                  {*Positionner le Texte*}
  34. TC(7); BGC(0);                                  {*Couleur Texte et Fond*}
  35. If FilSel=''                                    {*Teste si Fichier Sélectionné*}
  36.    Then Writeln('Pas de fichier sélectionné.')
  37.    Else Begin
  38.       Writeln('Vous avez sélectionné: ',DirSel+Filsel);
  39.       Writeln('Taille du fichier: ',Size);
  40.       End;
  41. CursOn;                                         {*Affiche le Curseur*}
  42. End;
  43.  
  44. {╔═══════════════════════════════════════════════════════════════════════════╗
  45.  ║                            PROGRAMME PRINCIPAL                            ║
  46.  ╚═══════════════════════════════════════════════════════════════════════════╝}
  47.  
  48. Begin
  49. MAIN;                                           {*Procedure Principale*}
  50. End.