Add(MainForm,2953706,21,105)
{
 Width=661
 link(onCreate,13568235:doReplicate,[])
}
Add(InlineCode,13568235,91,119)
{
 WorkPoints=#11:doReplicate|
 EventPoints=#6:ResStr|
 VarPoints=#4:RStr|
 DataPoints=#3:Str|5:Count|
 Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|13:    s:string;|9:   public|33:    Str, Count, ResStr:THI_Event;|55:    procedure doReplicate(var _Data:TData; Index:Word);|49:    Procedure rStr(var _Data:TData; Index:Word); |5: end;|0:|14:implementation|34:procedure THiAsmClass.doReplicate;|16:Var c,i:integer;|14:    a:string; |5:BEGIN|26: a:=ReadString(_Data,Str);|29: c:=ReadInteger(_Data,Count);|25: for i:=1 to c do s:=s+a;|23: _hi_onEvent(ResStr,s);|4:END;|0:|27:Procedure THiAsmClass.rStr;|5:BEGIN|19: dtString(_Data,s);|4:END;|4:end.|
 link(Str,13099097:Text,[])
 link(Count,511828:Text,[])
 link(ResStr,104720:doText,[])
}
Add(VisualStrings,13099097,91,63)
{
 Lines=#1:=|
}
Add(VisualStrings,511828,98,84)
{
 Lines=#2:50|
}
Add(Label,104720,147,119)
{
 Left=10
 Top=10
 Width=620
}