Программа компилируются еще и в таком виде:
Код: Выделить всё
t := IBSQL_read.FieldByName('COST_STEP').AsCurrency;
write(t, SizeOf(Currency));
Код: Выделить всё
t := IBSQL_read.FieldByName('COST_STEP').AsCurrency;
write(t, SizeOf(Currency));
Код: Выделить всё
frVariables['var_name1']:='bla_bla_bla'Код: Выделить всё
frReport1.Variables.Add('data_org');