Присваивание значения булевой переменной

← →
123-ий © (2009-01-06 08:53) [0]

Собираюсь софтину одну переводить с MS SQL Server 2000 на PostgreSQL. В связи с этим нашел модуль доступа к данным PostgreSQL из Delphi. Но этот модуль не работает. Чет тупая ошибка но понять не могу.
Код:
procedure mswait(ms: longint); const waiting:boolean = false; var t : TICKTIME; begin if waiting then exit; waiting := true; if ms > 10000 then ms := 10000; delayed(t,ms); while not delayed(t,0) do begin application.processmessages; end; waiting := false; end;
В строчках где идет присваивание булевой переменной - ошибка:
Left side cannot be assigned to.
Почему?

← →
123-ий © (2009-01-06 08:57) [1]

гм. судя по всему прикол в том, что данная переменная объявлена в секции констант. Но вроде была директива прекомпилятора, которая позволяла присваивать константам значения. Вот припомнить бы эту директиву...

← →
123-ий © (2009-01-06 09:02) [2]

упс. все решилось выставлением галочки в Project -> Options -> Compiler -> Assignable typed constants

← →
KilkennyCat © (2009-01-06 09:02) [3]

{$J+} вроде бы.

← →
123-ий © (2009-01-06 11:11) [4]

{$J+},{$J-} или {$WRITEABLECONST ON},{$WRITEABLECONST OFF}
она

← →
имя (2009-01-23 16:45) [5]

Удалено модератором

> [1] 123-ий © (06.01.09 08:57)
> переменная объявлена
> в секции констант. Но вроде была директива прекомпилятора,
> которая позволяла присваивать константам значения. Вот
> припомнить бы эту директиву...

А нафиг тогда константа?

Присваивание значения булевой переменной Найти похожие ветки