home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / mf.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  1.3 KB  |  59 lines
  1. unit MF;
  2.  
  3. interface
  4. uses Def, GetForU, FT, Colors, PR, MO, RET, DR, CO, FR;
  5. procedure SetFieldLen;
  6. procedure MainFileStart;
  7. procedure OpenMainFile;
  8. procedure CloseMainFile;
  9.  
  10. implementation
  11.  
  12. procedure SetFieldLen;
  13. begin
  14.    if ProgramUse = 2 then
  15.    begin
  16.    Description[1] :=  'Company          ';            FieldLen[1] := 40;
  17.    Description[3] :=  'Contact person   ';            FieldLen[3] := 30;
  18.    end
  19.   else
  20.    begin
  21.    Description[1] :=  'Addressee        ';            FieldLen[1] := 40;
  22.    Description[3] :=  'Company          ';            FieldLen[3] := 30;
  23.    end;
  24. end;
  25.  
  26. (* -------------------------------------------------------------------- *)
  27.  
  28. procedure MainFileStart;
  29. begin
  30. TempFile := concat(DataDrive,'maillist');
  31. assign(AddressFile,TempFile);
  32. rewrite(AddressFile);
  33. close(AddressFile);
  34. end;
  35.  
  36. procedure OpenMainFile;
  37. begin
  38. TempFile := concat(DataDrive,'maillist');
  39. assign(AddressFile,TempFile);
  40. reset(AddressFile);
  41. end;
  42.  
  43. procedure CloseMainFile;
  44. var Temp:           integer;
  45. begin
  46. {$ifdef DemoOnly}
  47.    Temp := Restriction1;
  48.    Temp := Temp div Restriction2;
  49.    if FileTop > Temp then FileTop := Temp;
  50.    if SortTop > Temp then SortTop := Temp;
  51.    PutFileTop;
  52. {$endif}
  53. seek(AddressFile,FileTop);
  54. truncate(AddressFile);
  55. close(AddressFile);
  56. end;
  57.  
  58. end.
  59.