Add(InlineCode,7544769,427,329)
{
 WorkPoints=#7:doWrite|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|15:   Fn:TextFile;|0:|9:   public|50:   procedure doWrite(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doWrite;|14: var s:string;|8:   begin|22:    s:='temp_history';|22:    AssignFile(Fn, s);|16:    ReWrite(Fn);|32:    WriteLn(Fn,toString(_Data));|21:    CloseFile(Fn);   |7:   end;|0:|4:end.|
}