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

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

Странный и обидный глюк :((( [Delphi, Windows]

DJ DIZzY ©   (2004-07-22 12:37:00) 

Незнаю в чём дело, просто в один момент перестал компилится проект, ничего такого страшного я не делал...

Вот код:

{ KOL MCK } // Do not remove this line!
{$DEFINE KOL_MCK}
{ KOL MCK }// Do not remove this line!
{$DEFINE KOL_MCK}
unit Start;

interface

{$IFDEF KOL_MCK}
{$IFDEF KOL_MCK}
uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes, Controls, mckControls, mckObjs, Graphics {$ENDIF};
{$ELSE}
{$I uses.inc} Windows, Messages, ShellAPI, KOL{$IFNDEF KOL_MCK}, mirror, Classes, Controls, mckControls, mckObjs, Graphics,
 mckCtrls{$ENDIF};
{$ENDIF}
{$ELSE}
{$I uses.inc}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
{$ENDIF}

type
{$IFDEF KOL_MCK}
{$I MCKfakeClasses.inc}
 {$IFDEF KOLCLASSES} TfrmStart = class; PfrmStart = TfrmStart; {$ELSE OBJECTS} PfrmStart = ^TfrmStart; {$ENDIF CLASSES/OBJECTS}
 {$IFDEF KOLCLASSES}{$I TfrmStart.inc}{$ELSE} TfrmStart = object(TObj) {$ENDIF}
   Form: PControl;
{$ELSE not_KOL_MCK}
 TfrmStart = class(TForm)
 {$ENDIF KOL_MCK}
 {$I MCKfakeClasses.inc}
 {$IFDEF KOLCLASSES} TfrmStart = class; PfrmStart = TfrmStart; {$ELSE OBJECTS} PfrmStart = ^TfrmStart; {$ENDIF CLASSES/OBJECTS}
 {$IFDEF KOLCLASSES}{$I TfrmStart.inc}{$ELSE} TfrmStart = object(TObj) {$ENDIF}
   Form: PControl;
 {$ELSE not_KOL_MCK}
 TfrmStart = class(TForm)
 {$ENDIF KOL_MCK}
{$ENDIF KOL_MCK}
   KOLProject1: TKOLProject;
   KOLForm1: TKOLForm;
   Panel: TKOLPanel;
   Button1: TKOLButton;
   Button2: TKOLButton;
   cbLevel: TKOLComboBox;
   rbAll: TKOLRadioBox;
   rbCurrent: TKOLRadioBox;
   ActionList1: TKOLActionList;
   aExit: TKOLAction;
   aOpenFile: TKOLAction;
   aStart: TKOLAction;
   btnOpen: TKOLButton;
   OpenDialog: TKOLOpenSaveDialog;
   procedure aExitExecute(Sender: PObj);
   procedure aOpenFileExecute(Sender: PObj);
   procedure rbCurrentClick(Sender: PObj);
   procedure rbAllClick(Sender: PObj);
   procedure KOLForm1Show(Sender: PObj);
   procedure aStartExecute(Sender: PObj);
 private
   { Private declarations }
 public
   { Public declarations }
 end;


Он мне выделяет 32 строку  
{$IFDEF KOLCLASSES} TfrmStart = class; PfrmStart = TfrmStart; {$ELSE OBJECTS} PfrmStart = ^TfrmStart; {$ENDIF CLASSES/OBJECTS}
И пишет Expected ':' but '=' found.

Так обидно, проект уже на стадии завершениedge

---

earl Grey   (2004-07-23 06:16:00) [1]

Помню как сейчас.. Жо)
При использовании форматтеров кода (у меня DelForEx) исходник меняется, в частности фрагмент
{ KOL MCK } // Do not remove this line!
меняется на
{ KOL MCK }// Do not remove this line!
т.е скушали пробел.

Тут конечно надо бы remove на change исправить,но это только Владимир может сделать.

В случае размещения функционала в модуле формы - придется все править ручками и впредь не пускать форматтер в модули с вышеуказанными строками.

---

Vladimir Kladov   (2004-07-22 17:11:00) [2]

в свойствах проекта не пропал ли символ условной компиляции KOL_MCK ? Дублирующие строки придется вычистить руками, лучше в notepade.

---

raize   (2004-07-22 16:31:00) [3]

у меня подобная "фишка" возникла.
в один прекрасный момент "ниоткуда" посыпались странные ошибки ? ((( а пишу на КОЛЕ первую неделю, сразу не понял в чем проблема.
не буду утверждать, потому что так до сих пор и не понял причины, но исправил это все я просто удалив все лишнее из папки проекта, все ненужные файлы, в том числе, все DCU, $$$ и т.д.
после чего все "странности" пропали ))

---

SPeller   (2004-07-22 12:59:00) [4]

Поищи в форуме, это уже было.

---

Наверх