home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / ITPJAN90.ZIP / MAKEFILE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-15  |  875 b   |  52 lines
  1. PROGRAM MakeFile;
  2. USES Crt,Dos,FileUtil;
  3. TYPE
  4.   TestRec=RECORD
  5.      Name: STRING[30];
  6.      Zip : STRING[5];
  7.      Amount : Real
  8.   END;
  9.  
  10. VAR F:FILE OF TestRec;
  11.     InRec: TestRec;
  12.     Ch:Char;
  13.     IOTest:Integer;
  14.  
  15. FUNCTION Ask : Boolean;
  16. BEGIN
  17.  Write('Would you like to add a record (Y/N)?');
  18.  Ch:=ReadKey;
  19.  Ch:=UpCase(Ch);
  20.  WriteLn(Ch);
  21.  IF Ch = 'Y' THEN Ask:=TRUE ELSE Ask:=FALSE
  22. END;
  23.  
  24. BEGIN
  25.  ClrScr;
  26.  FileMode:=66;
  27.  Assign(F,'testrec.dat');
  28.  {$I-}
  29.   Reset(F);
  30.  {$I+}
  31.  IOTest:=IOResult;
  32.  IF IOTest=2 THEN
  33.    Rewrite(F)
  34.  ELSE
  35.    IF IOTest <> 0 THEN IOError(IOTest);
  36.  FillChar(InRec,SizeOf(InRec),' ');
  37.  
  38.  
  39. WHILE Ask DO
  40. BEGIN
  41.  WITH InRec DO
  42.   BEGIN
  43.     Write('Name:     ');ReadLn(Name);
  44.     Write('Zip Code: ');ReadLn(Zip);
  45.     Write('Amount:   ');ReadLn(Amount);
  46.   END;
  47.  seek(F,FileSize(F));
  48.  Write(F,InRec)
  49. END;
  50. Close(F)
  51. END.
  52.