Add(Button,11027448,140,175)
{
 Left=35
 Top=70
 Height=40
 TabOrder=-1
 link(onClick,13664348:doData,[])
}
Add(Edit,15128451,203,119)
{
 Left=30
 Top=30
 Width=240
 Text=""
 DataType=1
}
Add(DoData,13664348,203,175)
{
 link(onEventData,12248021:Traffic,[])
 link(Data,15128451:Text,[])
}
Add(Edit,10698831,329,175)
{
 Left=105
 Top=70
 Width=165
 Height=40
 Font=[MS Sans Serif,18,1,0,1]
 Text=""
 Alignment=2
}
Add(InlineCode,12248021,266,175)
{
 @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|0:|22:    Result: THI_Event;|51:    procedure Traffic (var Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.Traffic;|0:|31:function KbNew(a:integer):real;|12: var e:real;|6: begin|15:  e :=a / 1024;|29:  result :=trunc(e*100)*0.01;|0:|5: end;|0:|31:function MbNew(a:integer):real;|12: var e:real;|6: begin|23:  e := a / 1024 / 1024;|29:  result :=trunc(e*100)*0.01;|5: end;|0:|31:function GbNew(a:integer):real;|12: var e:real;|6: begin|30:  e := a / 1024 / 1024 / 1024;|29:  result :=trunc(e*100)*0.01;|5: end;|0:|4: var|11: a:integer;|8: b:real;|10: s:string;|1: |5:begin|0:|23:  a := ToInteger(Data);|12:   case a of|35:    1..1023: s:= Int2Str(a) + ' б';|52:    1024..1048575: s:= Double2str(KbNew(a)) + ' Кб';|63:    1048576..1073741823: s:= Double2str(MbNew(a)) + ' Мб';     |57:    1073741824..maxint: s:= Double2str(GbNew(a)) + ' Гб';|7:   end;|0:|0:|2:  |0:|25:  _hi_OnEvent(Result, s);|0:|4:end;|1: |4:end.|
 link(Result,10698831:doText,[])
}

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
}

Str(Число:Длина:Число знаков после запятой,st);