39 lines
1.3 KiB
Plaintext
39 lines
1.3 KiB
Plaintext
|
|
||
|
|
{*******************************************************}
|
||
|
|
{ }
|
||
|
|
{ Turbo Pascal Version 6.0 }
|
||
|
|
{ Turbo Vision Unit }
|
||
|
|
{ }
|
||
|
|
{ Copyright (c) 1990 Borland International }
|
||
|
|
{ }
|
||
|
|
{*******************************************************}
|
||
|
|
|
||
|
|
unit HistList;
|
||
|
|
|
||
|
|
{$F+,O+,S-}
|
||
|
|
|
||
|
|
{****************************************************************************
|
||
|
|
History buffer structure:
|
||
|
|
|
||
|
|
Byte Byte String Byte Byte String
|
||
|
|
+-------------------------+-------------------------+--...--+
|
||
|
|
| 0 | Id | History string | 0 | Id | History string | |
|
||
|
|
+-------------------------+-------------------------+--...--+
|
||
|
|
|
||
|
|
***************************************************************************}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
const
|
||
|
|
HistoryBlock: Pointer = nil;
|
||
|
|
HistorySize: Word = 1024;
|
||
|
|
HistoryUsed: Word = 0;
|
||
|
|
|
||
|
|
procedure HistoryAdd(Id: Byte; var Str: String);
|
||
|
|
function HistoryCount(Id: Byte): Word;
|
||
|
|
function HistoryStr(Id: Byte; Index: Integer): String;
|
||
|
|
procedure ClearHistory;
|
||
|
|
|
||
|
|
procedure InitHistory;
|
||
|
|
procedure DoneHistory;
|