Скачать: CL | DM;

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

← →
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]

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

---

← →
Ega23 ©   (2009-01-23 16:53) [6]

> 123-ий ©   (06.01.09 08:53)


А нафиг этот код нужен???

---

← →
AndreyV ©   (2009-01-23 18:03) [7]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c