Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2012-10-12 20:18:33 ЛС | профиль | цитата
nesco, Trunc нету, только Round.
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)
}
Мои извращения на эту тему.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0