Build start...
Generated code
Create project...
Command line: dcc32.exe "C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\Project6.dpr" "-U C:\Program Files\HiAsm3.66 b169\." -Q
Borland Delphi  Version 12.0  Copyright (c) 1983,98 Inprise Corporation

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(18) Error: Method 'SetData' not found in base class

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(19) Error: Method 'SetName' not found in base class

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(38) Error: Undeclared identifier: 'GData'

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(38) Error: Operator not applicable to this operand type

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(39) Error: ')' expected but identifier 'Next' found

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(40) Error: ';' expected but 'WHILE' found

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(41) Error: Undeclared identifier: 'P'

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(42) Error: Pointer type required

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(45) Error: Pointer type required

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(46) Error: '.' expected but ';' found

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(47) Warning: Text after final 'END.' - ignored by compiler

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(18) Error: Unsatisfied forward or external declaration: 'THIGlobalVarEx.SetData'

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\hiGlobalVarEx.pas(19) Error: Unsatisfied forward or external declaration: 'THIGlobalVarEx.SetName'

C:\Program Files\HiAsm3.66 b169\Elements\delphi\code\Project6.dpr(9) Fatal: Could not compile used unit 'hiGlobalVarEx.pas'
End build

Add(MainForm,2953706,252,231)
{
}
Add(Button,7913403,252,273)
{
 Left=215
 Top=95
 link(onClick,12083433:doPrint,[])
}
Add(FTCG_Tools,12083433,308,273)
{
}
BEGIN_SDK
  Add(EditMultiEx,6444690,21,21)
  {
   WorkCount=#7:doPrint|
   EventCount=#7:onPrint|
   Width=475
   Height=179
   link(doPrint,14130509:doPrint,[(35,27)(35,69)])
  }
  Add(VisualInline,14130509,49,63)
  {
   Lines=#14:var t:integer;|5:begin|15:  t := 50 + 90;|46:  messagebox(0, pchar(int2str(t)), '', mb_ok);|4:end;|
   Width=348
   Height=113
   link(onPrint,6444690:onPrint,[(447,69)(447,27)])
  }
END_SDK

W:\Elements\delphi\code\hiFTCG_Tools_DD1C58.pas(80) Error: Expression expected but ')' found

procedure TClassFTCG_Tools_DD1C58.event_doPrint(var Data:TData; index:word);
begin
  
  printCode(data);
  _hi_onEvent(THIFTCG_Tools(FParent).Events[0], ); //???
end;

#sha
Add(MainForm,2438858,56,105)
{
 Left=20
 Top=105
 link(onCreate,14618536:doFor,[])
}
Add(ChildPanelEx,11500076,189,119)
{
 Mode=1
}
BEGIN_SDK
  Add(EditMultiEx,1299737,21,21)
  {
   WorkCount=#5:##add|
   Width=237
   Point(##add)
  }
  Add(Panel,16425398,49,133)
  {
   Left=35
   Top=105
   Height=30
   Align=2
   Point(doColor)
  }
  Add(Edit,7177071,49,63)
  {
   Left=160
   Top=95
   Width=80
   Align=3
   Text="3.1415"
   Alignment=1
   DataType=4
   ModeSp=2
   Point(onResize)
   Point(doWidth)
   Point(Width)
   link(onResize,12819605:doData,[])
  }
  Add(GlobalVarEx,8817792,154,77)
  {
   Name="SIZE-R"
   NoOwn=0
   Point(onValue)
   link(onValue,7177071:doWidth,[(227,83)(227,52)(37,52)(37,83)])
  }
  Add(DoData,12819605,105,77)
  {
   link(onEventData,8817792:doValue,[])
   link(Data,7177071:Width,[(111,65)(90,65)(90,107)(69,107)])
  }
END_SDK
Add(For,14618536,126,119)
{
 Start=1
 End=5
 link(onEvent,11500076:##add,[])
}