Add(MainForm,2953706,77,112)
{
}
Add(Button,12775953,133,112)
{
 Left=20
 Top=35
 link(onClick,3237490:doTest,[])
}
Add(InlineCode,3237490,189,112)
{
 WorkPoints=#6:doTest|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,windows,Share,Debug;|0:|4:type|0:|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|48:     procedure doTest(var dt: TData; idx: word);|5:     |5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doTest;|3:var|29:  TestIC: procedure; stdcall;|13:  p: pointer;|5:begin|51:  p := GetProcAddress(HInstance, 'TestICClassExp');|19:  if p <> nil then |7:  begin|16:    TestIC := p;|11:    TestIC;|6:  end;|4:end;|0:|4:end.|
}
Add(InlineCode,5900510,252,112)
{
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|27:     procedure TestICClass;|5: end;|0:|0:|14:implementation|0:|3:var|19:  hi: THiAsmClass; |0:|34:procedure THiAsmClass.TestICClass;|5:begin|24:  _debug('TestICClass');|4:end;|0:|34:procedure TestICClassExp; stdcall;|5:begin|27:  hi := THiAsmClass.Create;|17:  hi.TestICClass;|10:  hi.Free;|4:end;|0:|7:exports|17:  TestICClassExp;|0:|4:end.|
}