home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / cf.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  498 b   |  26 lines
  1. unit CF;
  2.  
  3. interface
  4. uses Def;
  5. procedure ClearForm(var Form: FormRecord);
  6.  
  7. implementation
  8.  
  9. procedure ClearForm;
  10. var J,
  11.     K:    integer;
  12. begin
  13. with Form do
  14.    begin
  15.    Description := 'unused';
  16.    FormLen := 0;             FormWidth := 0;
  17.    ReturnColOffset := 0;     ReturnRowOffset := 0;
  18.    ColOffset := 0;           RowOffset := 0;
  19.    for J := 1 to LastDescription do
  20.        for K := 1 to MaxFieldLine do
  21.            PlaceArray[J,K] := 0;
  22.    end;   (* with *)
  23. end;
  24.  
  25. end.
  26.