Вверх ↑
Ответов: 1841
Рейтинг: 366
#1: 2011-04-16 20:50:42 ЛС | профиль | цитата
Собственно пока появилось свободное время решил по изучать IC (delphi)
Появился вот такой вопрос по мере изучения...
Имеется задача: необходимо вывести чётные и не чётные числа соответственно на точки onTrue и onFalse.
И имеется 4 варианта решения этой задачи, но вопрос заключается в том, какой из этих 4 вариантов лучше всего выбрать для решения выше указанной задачи и почему

Те самые 4 варианта... (перезалил)

Add(InlineCode,7330169,126,350)
{
WorkPoints=#6:doWork|
EventPoints=#6:onTrue|7:onFalse|
DataPoints=#3:int|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses Kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|34: onTrue,onFalse,int:THI_Event;|45: procedure doWork(var dt:TData;idx:Word);|1: |5: end;|0:|14:implementation|29:procedure THiAsmClass.doWork;|7: begin|142: //if (ToIntegerEvent(int) mod 2) = 0 then _hi_OnEvent(onTrue, ToIntegerEvent(int)) else _hi_OnEvent(onFalse, ToIntegerEvent(int)); //V-1.1|4: |143: //if (ReadInteger(dt, int) mod 2) = 0 then _hi_OnEvent(onTrue, ReadInteger(dt,int)) else _hi_OnEvent(onFalse, ReadInteger(dt,int)); //V-1.2|4: |160: //if (ToIntegerEvent(int) mod 2) = 0 then _hi_CreateEvent(dt, @onTrue, ToIntegerEvent(int)) else _hi_CreateEvent(dt, @onFalse, ToIntegerEvent(int)); //V-2.1|4: |161: //if (ReadInteger(dt, int) mod 2) = 0 then _hi_CreateEvent(dt, @onTrue, ReadInteger(dt,int)) else _hi_CreateEvent(dt, @onFalse, ReadInteger(dt,int)); //V-2.2|6: end;|4:end.|
}
карма: 1
0