{$I KEYS} unit Size; interface const MaxOfDoc = 15000; RulesTreeLimit = 5002 + 5000 + 6000; ParamLimit = 9; ListLimit = 15; Str25Len = 25; { NNN :integer = 2; NNNPLUS :integer = 9 ( 21 div NNN - 1 ); } LoopName :string[10] = ''; LoopLink :pointer = nil; type Str10 = string[10]; StrType = string[Str25Len]; StrTypeR = record case byte of 1: (s: StrType); 2: (r: record s :string[10]; x :array [1..2] of char; v :string[11]; end ); end; pStrTypeR = ^StrTypeR; type pCas = ^CasType; ListType = array [1..ListLimit] of pCas; OldCasType= record Group :boolean; Parent :pCas; Name :string[50]; BalloonL :longint; BalloonS :string[255-50-1-4]; List :ListType; end; CasType = record Group :boolean; Parent :pCas; CasName :StrTypeR; AlfaPrebalanceFlag :boolean; BlnPtr :^string; x1,x2,y1,y2 :integer; { ??? } case boolean of true: (G :record oName :string[48]; oDebet :string[10]; oCredit :string[10]; oParameter :string[10]; pDebet :pointer; pCredit :pointer; pCross :pointer; iExpr :integer; oDollar :string[15]; oConstFlag :boolean; oConstValue :real; oDocument :boolean; oHotKey :boolean; oBreak :boolean; oContinue :boolean; Prog :pointer; oOnlyString :boolean; end; ); false:(List :ListType); end; implementation begin end.