Make(delphi)
ver(4.04 build 185)
Add(MainForm,12630844,217,84)
{
}
Add(InlineCode,7397974,490,133)
{
 WorkPoints=#8:doString|0:|
 EventPoints=#8:onString|0:|
 DataPoints=#9:lenstring|5:strIN|0:|
 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|25:    lenstring: THI_Event;|21:    strIN: THI_Event;|24:    onString: THI_Event;|52:    Procedure doString(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|3:var|10:i:integer;|39:n:integer; // нужное колличество знаков|34:LengthStr:integer; // длина строки|11:str:string;|31:Procedure THiAsmClass.doString;|5:begin|33:n:= ReadInteger(_Data,lenstring);|30:str:= Readstring(_Data,strIN);|23:LengthStr:=Length(str);|17:SetLength(str,n);|17://n - Length(str)|53:For i := (LengthStr + 1) to (n) do str[i]:=Char();|27:_hi_OnEvent(onString,str );|4:end;|0:|4:end.|
 link(onString,7519482:doText,[])
 link(lenstring,14491252:Text,[(496,107)(489,107)])
 link(strIN,6082914:Text,[(503,107)(552,107)])
}
Add(Button,13005861,322,56)
{
 Left=20
 Top=125
 link(onClick,7397974:doString,[(422,62)(422,139)])
}
Add(Edit,14491252,483,49)
{
 Left=40
 Top=15
 Text="20"
 DataType=1
}
Add(Edit,6082914,546,49)
{
 Left=25
 Top=55
 Width=345
 Text="qwerty"
}
Add(Edit,7519482,567,133)
{
 Left=25
 Top=80
 Width=345
 Text=""
}