home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / nulvar.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-10-21  |  1.4 KB  |  56 lines
  1. Program NullAllVars;
  2. { A SIMPLE MEANS TO NULL ALL VARIABLES IN A PASCAL PROGRAM }
  3. { I USE THIS AS THE FIRST LINE OF ANY PROGRAM I WRITE. IT  }
  4. { SET ALL VARIABLES TO NULL SO THERE IS NO JUNK IN         }
  5. { UN-INITIALIZED VARIABLES.                   }
  6.  
  7. Uses Crt;
  8.  
  9. Var
  10.   FirstVar : Byte;   { Must be First Variable in Var List }
  11.  
  12.   Test1    : String;
  13.   Test2    : Real;
  14.   Test3    : String;
  15.   Test4    : String;
  16.   Test5    : Integer;
  17.   Test6    : String;
  18.   Test7    : String;
  19.   Test8    : String;
  20.   Test9    : String;
  21.  
  22.   LastVar  : Byte;  { Must be Last Variable in Var List }
  23.  
  24. begin
  25.   ClrScr;
  26.   { Put Junk in Vars For Test }
  27.   Test1 := 'Junk1 in String';
  28.   Test2 := 1234567.635;
  29.   Test3 := 'Junk3 in String';
  30.   Test4 := 'Junk4 in String';
  31.   Test5 := 12345;
  32.  
  33.   { Show Junk in Vars }
  34.   Writeln(' Before Nulling Vars ');
  35.   Writeln('---------------------');
  36.   writeln('Test1 - ',Test1);
  37.   writeln('Test2 - ',Test2);
  38.   writeln('Test3 - ',Test3);
  39.   writeln('Test4 - ',Test4);
  40.   writeln('Test5 - ',Test5);
  41.  
  42.  
  43.   { Null all Strings Etc }
  44.   FillChar(FirstVar, Ofs(LastVar) - Ofs(FirstVar) + Sizeof(LastVar), 0);
  45.  
  46.   Writeln;
  47.   writeln;
  48.   Writeln(' Aftre Nulling Vars');
  49.   Writeln('--------------------');
  50.   writeln('Test1 - ',Test1);
  51.   writeln('Test2 - ',Test2);
  52.   writeln('Test3 - ',Test3);
  53.   writeln('Test4 - ',Test4);
  54.   writeln('Test5 - ',Test5);
  55. end.
  56.