home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap16 / linklst2 / makedata.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  853 b   |  53 lines
  1. unit Makedata;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: LINKLST2 }
  5.  
  6. interface
  7.  
  8. const
  9.   FileName = 'LinkExp.dta';
  10.  
  11. type
  12.   PMyNode = ^TMyNode;
  13.   TMyNode = record
  14.     Name  : String;
  15.     Flight: integer;
  16.     Day   : String;
  17.     Next  : PMyNode;  {Used to link each field}
  18.   end;
  19.  
  20. procedure CreateData;
  21.  
  22. implementation
  23.  
  24. uses
  25.   MathBox;
  26.  
  27. const
  28.   Max = 100;
  29.  
  30.   Days: array[0..6] of String = ('Sunday', 'Monday', 'Tuesday',
  31.                                  'Wednesday','Thursday',
  32.                                  'Friday', 'Saturday');
  33.  
  34. procedure CreateData;
  35. var
  36.   F: Text;
  37.   i: Integer;
  38.  
  39. begin
  40.   Assign(F, 'data.txt');
  41.   ReWrite(F);
  42.   for i := 1 to Max do begin
  43.     WriteLn(F, 'Sam' + Int2Str(i));
  44.     WriteLn(F, i);
  45.     WriteLn(F, Days[i Mod 7]);
  46.   end;
  47.   Close(F);
  48. end;
  49.  
  50. end.
  51.  
  52.  
  53.