home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SYSPC22.ZIP / MAILRET.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-03-14  |  1.4 KB  |  71 lines
  1. overlay function searchmail (startpt:integer):integer;
  2. var cnt:integer;
  3.     m:mailrec;
  4. begin
  5.   startpt:=startpt+1;
  6.   seek (mfile,startpt); che;
  7.   for cnt:=startpt to filesize(mfile)-1 do begin
  8.     read (mfile,m); che;
  9.     if m.sentto=unum then begin
  10.       searchmail:=cnt;
  11.       exit
  12.     end
  13.   end;
  14.   searchmail:=0
  15. end;
  16.  
  17. overlay procedure delmail (n:integer);
  18. var m:mailrec;
  19.     c:integer;
  20. begin
  21.   seek (mfile,n);
  22.   read (mfile,m);
  23.   deletetext (m.line);
  24.   for c:=n to filesize(mfile)-2 do begin
  25.     seek (mfile,c+1);
  26.     read (mfile,m);
  27.     seek (mfile,c);
  28.     write (mfile,m)
  29.   end;
  30.   seek (mfile,filesize(mfile)-1);
  31.   truncate (mfile);
  32.   if filesize(mfile)=0 then begin
  33.     m.sentto:=0;
  34.     seek (mfile,0);
  35.     write (mfile,m)
  36.   end
  37. end;
  38.  
  39. overlay procedure addmail (sentto:integer; line:integer; var me:message);
  40. var m:mailrec;
  41.     u:userrec;
  42. begin
  43.   m.sentby:=unam;
  44.   m.anon:=me.anon;
  45.   m.sentti:=timestr;
  46.   m.sentda:=datestr;
  47.   m.title:=me.title;
  48.   m.line:=line;
  49.   m.sentto:=sentto;
  50.   m.read:=false;
  51.   seek (mfile,filesize(mfile));
  52.   write (mfile,m);
  53.   seek (ufile,sentto);
  54.   read (ufile,u);
  55.  newmail:=newmail+1
  56. end;
  57.  
  58. overlay function getnummail (un:integer):integer;
  59. var cnt:integer;
  60.     m:mailrec;
  61.     total:integer;
  62. begin
  63.   total:=0;
  64.   seek (mfile,0);
  65.   for cnt:=1 to filesize(mfile) do begin
  66.     read (mfile,m);
  67.     if m.sentto=un then total:=total+1
  68.   end;
  69.   getnummail:=total
  70. end;
  71.