home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1991 / 08 / unique.pas < prev   
Pascal/Delphi Source File  |  1991-03-25  |  1KB  |  44 lines
  1. PROGRAM Unique;
  2. USES Dos, Crt;
  3. CONST AG : ARRAY[0..35] OF CHAR =
  4.   '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  5.   {these are the "asciiGesimal characters}
  6.  
  7. VAR OneName : NameStr;
  8.  
  9.   FUNCTION UniqueName : NameStr;
  10.   VAR Year, Month, Day, Dummy,
  11.     Hour, Min, Sec : Word;
  12.     temp           : NameStr;
  13.   BEGIN
  14.     GetDate(Year, Month, Day, dummy);
  15.     GetTime(Hour, Min, Sec, dummy);
  16.     temp := AG[year-1980]+AG[Month]+AG[Day]+AG[Hour];
  17.     temp := temp+AG[Min DIV 10]+AG[Min MOD 10]+
  18.     AG[Sec DIV 10]+AG[Sec MOD 10];
  19.     UniqueName := temp;
  20.   END;
  21.  
  22.   PROCEDURE When(Name : NameStr);
  23.   VAR Year, Month, Day,
  24.     Hour : Word;
  25.     Min, Sec : String[2];
  26.   BEGIN
  27.     year := pred(pos(name[1], AG)) + 80;
  28.     month := pred(pos(name[2], AG));
  29.     day := pred(pos(name[3], AG));
  30.     Hour := pred(pos(name[4], AG));
  31.     Min := Copy(name,5,2);
  32.     Sec := Copy(name,7,2);
  33.     Write('Filename: ',name,'   Date/Time: ');
  34.     WriteLn(month,'/',day,'/',year,'  ',hour,':',min,':',sec);
  35.   END;
  36.  
  37. BEGIN
  38.   REPEAT
  39.     OneName := UniqueName;
  40.     When(UniqueName);
  41.     Delay(500);
  42.   UNTIL KeyPressed;
  43. END.
  44.