Add(MainForm,1565565,252,252)
{
 Point(onClose)
 link(onCreate,14931663:doOpen,[])
 link(onClose,14931663:doClose,[])
}
Add(Button,13370250,245,112)
{
 Left=15
 Top=5
 link(onClick,63447:doExecute,[])
}
Add(Label,10171826,623,224)
{
 Left=95
 Top=10
}
Add(InlineCode,12930845,385,126)
{
 WorkPoints=#50:doOpen=Открывает текстовый файл для перебора строк|40:doStop=Останавливает перебор строк файла|
 EventPoints=#55:onOpen=Выдает в поток очередную строку текстового файла|20:onEnd=Конец перебора|
 VarPoints=#41:varString=содержит очередную строку файла|
 DataPoints=#39:FileName=Полный путь к текстовому файлу|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|32:uses Windows, kol, Share, Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|9:  private|16:    str: string;|19:    FStop: boolean;|8:  public|13:    FileName,|22:    onOpen: THI_Event;|25:    onEnd: THI_Event;    |0:|50:    procedure doOpen(var _Data:TData; index:word);|50:    procedure doStop(var _Data:TData; index:word);|53:    procedure varString(var _Data:TData; index:word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doOpen;|3:var|14:  F: TextFile;|13:  fn: string;|34:  BufIn : Array[0..65535] of Char;|5:begin|39:  fn := ReadString(_Data, FileName,'');|34:  if not FileExists(fn) then exit;|20:  AssignFile(F, fn);|11:  Reset(F);|23:  SetTextBuf(F, BufIn);|17:  FStop := False;|35:  while not eof(F) and not FStop do|7:  begin|19:    Readln(F, str);|29:    _hi_onEvent(onOpen, str);|6:  end;|15:  CloseFile(F);|27:  _hi_onEvent(onEnd, '');  |4:end;|0:|29:procedure THiAsmClass.doStop;|5:begin|16:  FStop := true;|4:end;|0:|32:procedure THiAsmClass.varString;|5:begin|23:  dtString(_Data, str);|4:end;|0:|4:end.|
 link(onOpen,14722244:doHashsum,[])
 link(onEnd,7207750:doEvent1,[])
}
Add(ODialog,63447,294,112)
{
 Filter="All|*.txt"
 link(onExecute,15194973:doEvent1,[])
}
Add(Hub,7207750,434,133)
{
 OutCount=3
 link(onEvent1,9593968:doExec,[])
 link(onEvent2,13045864:doQuery,[(466,146)(466,181)])
 link(onEvent3,1139286:doStop,[(459,153)(459,230)])
}
Add(Hub,15194973,343,112)
{
 OutCount=3
 link(onEvent1,1139286:doStart,[(375,118)(375,223)])
 link(onEvent2,6607539:doExec,[(368,125)(368,90)])
 link(onEvent3,12930845:doOpen,[])
}
Add(TimeCounter,1139286,525,217)
{
 link(onStop,12140088:doString,[])
}
Add(FormatStr,12140088,574,224)
{
 Mask="Выдано %1 строк за %2 мсек"
 link(onFString,10171826:doText,[])
 link(Str1,16717458:Value,[])
}
Add(DS_SQLite,14931663,308,266)
{
 @Color=5635925
 Name="DB"
 FileName=":memory:"
 link(onOpen,9656551:doExec,[])
}
Add(Hashsum,14722244,525,126)
{
 link(onResult,6489984:doString,[])
}
Add(DSC_Exec,9656551,364,266)
{
 @Color=5635925
 SQL="CREATE TABLE hashtub(\r\n[hash] TEXT);"
 DSManager="DB"
}
Add(DSC_Exec,6607539,385,84)
{
 @Color=5635925
 SQL="BEGIN TRANSACTION;"
 DSManager="DB"
}
Add(DSC_Exec,9593968,476,133)
{
 @Color=5635925
 SQL="END TRANSACTION;"
 DSManager="DB"
}
Add(DSC_Exec,733540,623,126)
{
 @Color=5635925
 DSManager="DB"
}
Add(FormatStr,6489984,574,126)
{
 DataCount=1
 Mask="INSERT INTO hashtub values('%1');"
 link(onFString,733540:doExec,[])
}
Add(Memory,16717458,574,175)
{
}
Add(DSC_Query,13045864,525,175)
{
 @Color=5635925
 SQL="SELECT count(*) FROM hashtub;"
 DSManager="DB"
 link(onQuery,16717458:doValue,[])
}