{*******************************************************}
{                                                       }
{       Turbo Pascal Version 7.0                        }
{       Turbo Vision Unit                               }
{                                                       }
{       Copyright (c) 1992 Borland International        }
{                                                       }
{*******************************************************}
{$PureInt+}
unit HistList;

{$X+,I-,S-,Cdecl-}

{****************************************************************************
   History buffer structure:

     Longint  String        StrLen Longint String        StrLen
    +----------------------------+----------------------------+--...--+
    |  Id   | History string | L |  Id   | History string | L |
    +----------------------------+----------------------------+--...--+

 ***************************************************************************}

interface

uses Objects, Use32;

const
  HistoryBlock: Pointer = nil;
  HistorySize: Word = 2*1024;
  HistoryUsed: Word = 0;

procedure HistoryAdd(Id: Longint; const Str: String);
function HistoryCount(Id: Longint): Word;
function HistoryStr(Id: Longint; Index: Integer): String;
procedure ClearHistory;

procedure InitHistory;
procedure DoneHistory;

procedure StoreHistory(var S: TStream);
procedure LoadHistory(var S: TStream);

implementation

end.