home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l044 / 2.ddi / INTRFACE.ZIP / HISTLIST.INT < prev    next >
Encoding:
Text File  |  1990-10-23  |  1.3 KB  |  39 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Version 6.0                        }
  5. {       Turbo Vision Unit                               }
  6. {                                                       }
  7. {       Copyright (c) 1990 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit HistList;
  12.  
  13. {$F+,O+,S-}
  14.  
  15. {****************************************************************************
  16.    History buffer structure:
  17.  
  18.     Byte Byte String          Byte Byte String
  19.     +-------------------------+-------------------------+--...--+
  20.     | 0 | Id | History string | 0 | Id | History string |       |
  21.     +-------------------------+-------------------------+--...--+
  22.  
  23.  ***************************************************************************}
  24.  
  25. interface
  26.  
  27. const
  28.   HistoryBlock: Pointer = nil;
  29.   HistorySize: Word = 1024;
  30.   HistoryUsed: Word = 0;
  31.  
  32. procedure HistoryAdd(Id: Byte; var Str: String);
  33. function HistoryCount(Id: Byte): Word;
  34. function HistoryStr(Id: Byte; Index: Integer): String;
  35. procedure ClearHistory;
  36.  
  37. procedure InitHistory;
  38. procedure DoneHistory;
  39.