internal error 200304235

[ygreen]

При установке новой версии lazarus 2.6.2 компилятор выдает ошибку internal error 200304235 на строку:
write(IBSQL_read.FieldByName('COUNT_MAT').AsCurrency, SizeOf(Currency));

[runewalsh]

Код: Выделить всё

var t: Currency;
t := IBSQL_read.FieldByName('COUNT_MAT').AsCurrency;
write(t, SizeOf(t));

Если не сработает, попробуй локально отключить оптимизацию.

[ygreen]

Да так работает. Спасибо.
А почему напрямую ругается?

[Максим]

ygreen
Это ошибка компилятора. Напишите в багтрекер, приложив маленький тестовый проект, на котором проблема воспроизводится.

[ygreen]

Спасибо. Попробую разобраться.

Программа компилируются еще и в таком виде:

Код: Выделить всё

      
  t := IBSQL_read.FieldByName('COST_STEP').AsCurrency;
  write(t, SizeOf(Currency));