wbta_var.pas

来自「System will automatically delete the dir」· PAS 代码 · 共 61 行

Unit WBTA_Var;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;


Const LF = #10;
      CR = #13;

var
  Editor      : String;
  LogFile     : String;  // for the terminal data logging
  RepDelay    : Word;  { for the automatic repeat delay }
  Alt0, Alt1, Alt2, Alt3, Alt4, Alt5, Alt6, Alt7, Alt8, Alt9 : String;

  COMPort     : integer;
  BaudRate    : Integer;
  Emulation   : Integer;
  ComStrL     : TstringList;

  KeyOut      : char;
  IDXVersion  : string; // H23 indexer version
  Progname    : String;
  Ext         : String; // extension for the data files
  FName       : String; // for the program files

  ProgPars    ,   // to save both to disk
  HexMode     ,            { to print control chracters in HEX }
  LogOn       , // to switch the log file on / off
  NewRep      ,
  Doorgaan    : Boolean;

  INDSel      ,
  UnitStr     : String[35];
  StrOut      : String;
  CmdBuf      : array [1..10] of string[30];
  CmdWyz      : Integer;
  Version     : string[20];
  L70         : Integer;
  LParamStr   : TStringList;  // to save L parameters
  LMax : Integer;     { contains number of received parameters }
  ContrOld,
  ContrType   : Integer;                         { type of Controller }
  IMax        ,
  IDXNum      : Integer;             { Number of the selected indexer }
  CCError     : Integer;
  NumberOfBytes : Integer; // added wb 22.03.2001

Implementation

initialization
  LParamStr := TStringList.Create;
  ComStrL   := TStringList.Create;
finalization
  LParamStr.Free;
  ComStrL.Free;
end.