Вверх ↑
Разработчик
Ответов: 26179
Рейтинг: 2128
#1: 2009-08-27 19:17:46 ЛС | профиль | цитата
Гы, гы, тут не в разы а в десятки раз быстрее
Парасим файл Kol.pas из основной директории HiAsm


Add(MainForm,15375397,483,217)
{
 Width=418
 Height=337
 link(onCreate,16569644:doLoad,[])
}
Add(InlineCode,15900963,546,301)
{
 @Hint=#6:GetTok|
 WorkPoints=#6:doWork|
 EventPoints=#8:onEvent1|
 DataPoints=#3:Str|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|3:   |9:   public|23:    onEvent1:THI_Event;|18:    Str:THI_Event;|50:    procedure doWork(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|16:var s,st:string;|5:begin|27:  st := ToStringEvent(Str);|25:  Replace(st,#10#13,#13);|18:  while s <> ' do|24:    s := GetTok(st,#13);|35:  _hi_CreateEvent(_Data,@onEvent1);|4:end;|0:|4:end.|
 link(onEvent1,3108918:doStop,[(589,307)(589,292)(471,292)(471,314)])
 link(Str,7684654:Var2,[])
 AddHint(102,-35,51,13,@Hint)
}
Add(InlineCode,5160255,560,364)
{
 @Hint=#5:Parse|
 WorkPoints=#6:doWork|
 EventPoints=#8:onEvent1|
 DataPoints=#3:Str|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|3:   |9:   public|23:    onEvent1:THI_Event;|22:    Str:THI_Event;    |50:    procedure doWork(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|16:var s,st:string;|5:begin|27:  st := ToStringEvent(Str);|18:  while s <> ' do|26:    s := parse(st,#10#13);|35:  _hi_CreateEvent(_Data,@onEvent1);|4:end;|0:|4:end.|
 link(onEvent1,13161856:doStop,[(607,370)(607,407)(471,407)(471,377)])
 link(Str,7684654:Var3,[(566,271)])
 AddHint(86,46,42,13,@Hint)
}
Add(Button,15788778,378,301)
{
 Left=180
 Top=270
 link(onClick,6912630:doEvent1,[])
}
Add(Hub,6912630,434,301)
{
 link(onEvent1,3108918:doStart,[])
 link(onEvent2,13161856:doStart,[(469,314)(469,370)])
}
Add(TimeCounter,3108918,483,301)
{
 link(onStart,15900963:doWork,[])
 link(onStop,15773989:doWork1,[(529,314)])
}
Add(TimeCounter,13161856,483,364)
{
 link(onStart,5160255:doWork,[])
 link(onStop,15773989:doWork3,[(529,377)])
}
Add(Message,2019792,616,343)
{
}
Add(HubEx,15773989,525,343)
{
 link(onEvent,2019792:doMessage,[])
}
Add(ListBox,16569644,546,203)
{
 Left=30
 Top=10
 Width=360
 Height=255
 FileName=".compilerfpckol.pas"
}
Add(GetDataEx,7684654,546,266)
{
 link(Data,16569644:Text,[])
}


У меня 5298 против 178, что около 30 раз
карма: 22

0