Вверх ↑
Ответов: 1429
Рейтинг: 50
#1: 2011-01-25 20:30:50 ЛС | профиль | цитата
Assasin писал(а):
не компилируется и не попадает в конечную программу

Это я уже хорошо понимаю. Тут я написал только код, который напечатает (я проверил) в Delphi исходник то, что я хочу, в нужных местах. А раз он не поддерживает вложеных функций, то , тогда, да.
------------ Дoбавленo в 19.44:
Возник простой вопрос:
Почему этот код не выдает в поток значение y ?? (выдает пустое событие)


#hws
func doCalc(dt)
lng.decl_loc_var(y, 'integer')
println(y,' := 5;')
event(onResult, y)
end

В целевой код оно печатает это:

#pas
procedure TClassFTCG_Tools_8EA8A50.event_doValue(var Data:TData; index:word);
var
y1:integer;
begin

y1 := 5;
_hi_onEvent(THIFTCG_Tools(FParent).Events[0]);
end;


------------ Дoбавленo в 20.30:
ОТвет: Выдает, если создать новый элемент с нуля.
Но я взял готовый матпарсер, не смотря на то, что в нем нет кода, он ничего нормально не выдает.
карма: 0

0