| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

123-ий ©   (2009-01-06 08:53:00) 

Собираюсь софтину одну переводить с 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.
Почему?

---

AndreyV   (2009-01-23 18:03:00) [1]

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

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

---

Ega23   (2009-01-23 16:53:00) [2]

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


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

---

  (2009-01-23 16:45:00) [3]

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

---

123-ий   (2009-01-06 11:11:00) [4]

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

---

123-ий   (2009-01-06 09:02:00) [5]

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

---

KilkennyCat   (2009-01-06 09:02:00) [6]

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

---

123-ий   (2009-01-06 08:57:00) [7]

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

---

Наверх