Add(MainForm,10393453,140,154)
{
 Width=606
}
Add(Edit,15128451,259,154)
{
 Left=30
 Top=30
 Width=240
 Text=""
 DataType=4
 link(onChange,12248021:Traffic,[])
}
Add(InlineCode,12248021,329,154)
{
 @Hint=#18:Конвертер Траффика|
 WorkPoints=#24:Traffic=Траффик в байтах|
 EventPoints=#31:Result=Результат преобразования|
 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|22:    Result: THI_Event;|51:    procedure Traffic (var Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|0:|48:function BytesToStr(const size: Double): string;|5:const|100:  sizes: array [1..9] of string = (' YB', ' Zb', ' Eb', ' Pb', ' Tb', ' Gb', ' Mb', ' Kb', ' byte');|3:var|17:  total: integer;|24:  rSize,varSize: Double;|6:begin |25:  total := Length(sizes);|18:  varSize := size;|26:  while varSize >= 1024 do|7:  begin|15:    dec(total);|30:    varSize := varSize / 1024;|6:  end;|38:  rSize := Round(varSize/0.01)*0.01;  |49:  Result := Double2Str(rSize) + sizes[total];    |4:end;|0:|30:procedure THiAsmClass.Traffic;|3:var|12:  d: Double;|5:begin|29:  //d := Round(ToReal(Data));|20:  d := ToReal(Data);|40:  _hi_OnEvent(Result, BytesToStr(d));   |4:end;|1: |4:end.|
 link(Result,6420362:doAdd,[])
}
Add(Memo,6420362,406,154)
{
 Left=325
 Top=25
 Width=240
 Height=195
 AddType=1
}