home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap16 / linklst3 / maketext.dpr < prev   
Encoding:
Text File  |  1995-03-21  |  611 b   |  30 lines
  1. program MakeText;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: LINKLST3 }
  5.  
  6. { This program generates a list for use with LINKLST3 }
  7.  
  8. uses
  9.   MathBox;
  10.  
  11. const
  12.   Max = 3000;
  13.   Days: array[0..6] of String = ('Sunday', 'Monday', 'Tuesday',
  14.                                  'Wednesday','Thursday',
  15.                                  'Friday', 'Saturday');
  16. var
  17.   F: Text;
  18.   i: Integer;
  19.  
  20. begin
  21.   Assign(F, 'data.txt');
  22.   ReWrite(F);
  23.   for i := 1 to Max do begin
  24.     WriteLn(F, 'Sam' + Int2Str(i));
  25.     WriteLn(F, i);
  26.     WriteLn(F, Days[i Mod 7]);
  27.   end;
  28.   Close(F);
  29. end.
  30.