Локальные типизированные константы

← →
злобная танька (2005-09-23 18:33) [0]

procedure TForm1.Button1Click(Sender: TObject);
const
a: integer = 0;
begin
Edit1.Text := inttostr(a);
inc(a);
end;

почему это работает в D4, а в D7 - не работает? (значение a можно изменять и оно сохраняется между вызовами)
зачем убрали такую прикольную фишку? или у меня делфя кривая?

← →
jack128 © (2005-09-23 18:45) [1]

Нет, просто борланд сделал типизированные константы КОНСТАНТАМИ, а не фиг знает чем. Впрочем нужный те функционал можно вернуть назад, см директиву $J

← →
palva © (2005-09-23 18:48) [2]

Или в свойствах проекта на вкладке compiler поставить флаг Assignable typed constatnts

← →
злобная танька (2005-09-23 19:32) [3]

спасибо!
я их очень люблю.

Локальные типизированные константы Найти похожие ветки