Add(InlineCode,7941184,126,133)
{
 @Hint=#5:First|
 VarPoints=#4:test|
 DataPoints=#3:Str|
 Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:   Str:THI_Event;|47:   procedure Test(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|27:Procedure THiAsmClass.Test;|14:var Ss:string;|5:Begin|41:Ss:=AnsiLowerCase(toStringEvent(str))+#0;|25:CharUpperBuff(@Ss[1], 1);|31:SetLength(SS, length(Ss) - 1); |19:dtString(_Data,Ss);|4:End;|0:|4:end.|
 AddHint(-1,-30,34,13,@Hint)
}
Add(InlineCode,5269440,182,133)
{
 @Hint=#5:Trunc|
 VarPoints=#4:Trun|
 DataPoints=#1:D|
 Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|15:   D:THI_Event;|47:   procedure Trun(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|27:Procedure THiAsmClass.Trun;|5:Begin|39:dtInteger(_Data,Trunc(toRealEvent(D)));|4:End;|0:|4:end.|
 AddHint(14,-28,43,13,@Hint)
}