Add(InlineCode,12930845,287,161)
{
 WorkPoints=#50:doOpen=Открывает текстовый файл для перебора строк|40:doStop=Останавливает перебор строк файла|
 EventPoints=#55:onOpen=Выдает в поток очередную строку текстового файла|20:onEnd=Конец перебора|
 VarPoints=#38:String=содержит очередную строку файла|
 DataPoints=#39:FileName=Полный путь к текстовому файлу|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|32:uses Windows, kol, Share, Debug;|0:|4:type|28: THiOpenFile = class(TDebug)|9:  private|16:    str: string;|19:    FStop: boolean;|8:  public|27:    _prop_FileName: string;|19:    _data_FileName,|29:    _event_onOpen: THI_Event;|32:    _event_onEnd: THI_Event;    |0:|56:    procedure _work_doOpen(var _Data:TData; index:word);|56:    procedure _work_doStop(var _Data:TData; index:word);|55:    procedure _var_String(var _Data:TData; index:word);|5: end;|0:|14:implementation|35:procedure THiOpenFile._work_doOpen;|3:var|14:  F: TextFile;|13:  fn: string;|34:  BufIn : Array[0..65535] of Char;|5:begin|58:  fn := ReadString(_Data, _data_FileName, _prop_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);|36:    _hi_onEvent(_event_onOpen, str);|6:  end;|15:  CloseFile(F);|34:  _hi_onEvent(_event_onEnd, ');  |4:end;|0:|35:procedure THiOpenFile._work_doStop;|5:begin|16:  FStop := true;|4:end;|0:|34:procedure THiOpenFile._var_String;|5:begin|23:  dtString(_Data, str);|4:end;|0:|4:end.|
}