error identifier expected const found in WQ.pas

[trajektorde]

wq.pas(113,1) Fatal: Syntax error, "identifier" expected but "CONST" found

obige Fehlermeldung erscheint, wenn ich ein Programm mit der folgenden unit wq.pas starten will
hält an an der Zeile: const

Delphi-Quellcode:

unit WQ;

interface

uses
  SysUtils, Classes, ViDrivers, ViTypes, ViUtils, ViClasses,
  ViScreens, ViViews, ViMenus, ViApp, ViDialogs, ViMsgBox,
  ViStdDlg, ViColorSel, ViMessages, ViThreads, ViEditors,
{$IFDEF WIN}
  WinTimers;
{$ENDIF}
{$IFDEF WDOSX}
  WDosTimers;
{$ENDIF}

const

{QT key codes }

    QKey_Escape = 4096 { $1000 };
    QKey_Tab = 4097 { $1001 };
    QKey_Backtab = 4098 { $1002 };
    QKey_Backspace = 4099 { $1003 };
    QKey_Return = 4100 { $1004 };
    QKey_Enter = 4101 { $1005 };
    QKey_Insert = 4102 { $1006 };
    QKey_Delete = 4103 { $1007 };      .....

Grüße

[DeddyH]

Wenn weder WIN noch WDOSX definiert sind, dann fehlt das abschließende Semikolon der uses-Klausel.

[edit] Versuch es mal so:

Delphi-Quellcode:

uses
  SysUtils, Classes, ViDrivers, ViTypes, ViUtils, ViClasses,
  ViScreens, ViViews, ViMenus, ViApp, ViDialogs, ViMsgBox,
  ViStdDlg, ViColorSel, ViMessages, ViThreads, ViEditors
  {$IFDEF WIN}
  , WinTimers
  {$ENDIF}
  {$IFDEF WDOSX}
  , WDosTimers
  {$ENDIF};

[/edit]

[trajektorde]

vielen Dank für die rasche Antwort,
damit ändert sich tatsächlich die Fehlermeldung, jetzt viDrivers kann nicht gefunden werden,

denke, dass es schon daran lag, ist mir aber jetzt zu umständlich, alle vi... units zu suchen und einzubinden, wollte ein example zu treeview nutzen,
habe aber inzwischen in den tutorials ein sehr gutes anderes example gefunden,

http://users.iafrica.com/d/da/dart/z.../TreeView.html

auch wenn
ich mir mit der anpassung von Delphi zu Lazarus etwas schwer tue.
Habe zwar auch Delphi, aber neue Version-'Starter', kann damit die Projekte aus den Tutorial Beispielen auch nicht ohne weiteres öffnen.
Als noch weitgehend Einsteiger ist Einbinden externer Dateien für mich irgendwie immer noch ein Prolem, wo müssen die Dateien hin, wie füge ich einen Pfad hinzu, wohin muss ich die zip-Dateien extrahieren, warum kann ein Projekt eine TForm1 nicht finden? Na ja- man robbt sich mühsam voran, aber meistens geht es doch irgendwie vorwärts,

jedenfalls merci, der gesuchte Fehler ist denke ich behoben(der nächste ließ nicht lange auf sich warten) Grüße