home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / fr.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  743 b   |  42 lines
  1. unit FR;    { Form Read/write }
  2.  
  3. interface
  4. uses Def, CF;
  5. procedure WriteForms;
  6. procedure ReadForms;
  7.  
  8. implementation
  9.  
  10. procedure WriteForms;
  11. var I:    integer;
  12. begin
  13. assign(FormFile,'forms');
  14. rewrite(FormFile);
  15. for I := 1 to MaxForms do write(FormFile,Form[I]);
  16. close(FormFile);
  17. end;
  18.  
  19. procedure ReadForms;
  20. var Err:             integer;
  21. begin
  22. assign(FormFile,'forms');
  23. {$I-}
  24. reset(FormFile);
  25. {$I+}
  26. Err := ioresult;
  27. if Err = 0 then
  28.    begin
  29.    for I := 1 to MaxForms do read(FormFile,Form[I]);
  30.    close(FormFile);
  31.    end
  32.   else
  33.    begin
  34.    {$I-}   close(FormFile);  {$I+}
  35.    Err := ioresult;
  36.    for I := 1 to MaxForms do ClearForm(Form[I]);
  37.    WriteForms;
  38.    end;          (* if..then..else *)
  39. end;
  40.  
  41. end.
  42.