Текущий архив: 2005.02.13;
Скачать: CL | DM;

Вниз

Странный и обидный глюк :(((   Найти похожие ветки 

← →
DJ DIZzY ©   (2004-07-22 12:37) [0]

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

Вот код:

{ 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

---

← →
SPeller ©   (2004-07-22 12:59) [1]

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

---

← →
raize   (2004-07-22 16:31) [2]

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

---

← →
Vladimir Kladov   (2004-07-22 17:11) [3]

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

---

← →
earl Grey ©   (2004-07-23 06:16) [4]

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

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

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

---

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

Текущий архив: 2005.02.13;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.034 c