; erwartet, aber IMPLEMENTATION gefunden

Hallo,

ich habe seit Stunden ein seltsmes Problem mit meinem Delph2009
Der Compiler spuckt mir die Fehlermeldung

(semikolon) “; erwartet, aber IMPLEMENTATION gefunden” aus und
ich komme nicht weiter, obwohl ich schon über 20 Jahre PASCAL programmiere.
Aber manchmal ist mann mit Blinheit geschlagen :)

Hier der Quelltextausschnitt:

program Main;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls,
Menus, StdCtrls, Dialogs, Buttons, Messages, ExtCtrls,
ComCtrls, ModulWindow,
AddProject_1_Unit, IniFiles, new_Window, HList, FMXUtils,
IniUnit, Clipbrd, Projectdaten, ZusatzForm, shellapi,
cpc_lib_Demo, UHelper, TreeEdit, VarTable, FileCtrl;

type
TMainForm = class(TForm);
MainMenu1= TMainMenu;
Datei= TMenuItem;
Window1= TMenuItem;
Help1= TMenuItem;
N1=TMenuItem;
FileExitItem=TMenuItem;
WindowCascadeItem=TMenuItem;
WindowTileItem=TMenuItem;
WindowArrangeItem=TMenuItem;
HelpAboutItem= TMenuItem;
OpenDialog= TOpenDialog;
WindowMinimizeItem= TMenuItem;
SpeedPanel= TPanel;
OpenBtn= TSpeedButton;
SaveBtn= TSpeedButton;
ExitBtn= TSpeedButton;
StatusBar= TStatusBar;
Timer1= TTimer;
closeProject= TMenuItem;
Projektffnen1= TMenuItem;
NeuesProjekt1= TMenuItem;
Projektspeichernunter1= TMenuItem;
Projektspeichern1= TMenuItem;
SaveDialog1= TSaveDialog;
Tools1= TMenuItem;
CanMonitor1= TMenuItem;
Taschenrechner1= TMenuItem;
AcrobatReader1= TMenuItem;
Digitalout= TMenuItem;
OpenDialog1= TOpenDialog;
Modulhizufgen1= TMenuItem;
N2= TMenuItem;
Modulelschen1= TMenuItem;
Moduleditieren1= TMenuItem;
Allevergrern1= TMenuItem;
Download1= TMenuItem;
closeAll= TSpeedButton;
HHITextdownload1= TMenuItem;
Memo1= TMemo;
PopupMenu1= TPopupMenu;
Umbennen1= TMenuItem;
N3= TMenuItem;
Knotenhinzufgen1= TMenuItem;
N4= TMenuItem;
Knotenlschen1= TMenuItem;
Unterknotenhinzufgen1= TMenuItem;
N5= TMenuItem;
N6= TMenuItem;
Parameterbearbeiten1= TMenuItem;
Variablenliste1= TMenuItem;
Variablen1= TMenuItem;
N7= TMenuItem;
AlleParameterSenden1= TMenuItem;
AlleParameter= TMenuItem;
Freischalten= TMenuItem;
QuelltextItem= TMenuItem;
ProgDlItem= TMenuItem;
Freischaltmodusndern1= TMenuItem;
Passwrterfestlegen1= TMenuItem;
PROCEDURE FormCreate(Sender: TObject);
PROCEDURE WindowCascadeItemClick(Sender: TObject);
PROCEDURE WindowTileItemClick(Sender: TObject);
PROCEDURE WindowArrangeItemClick(Sender: TObject);
PROCEDURE FileExitItemClick(Sender: TObject);
PROCEDURE HelpAboutItemClick(Sender: TObject);
PROCEDURE Projektffnen1Click(Sender: TObject);
PROCEDURE Projektspeichernunter1Click(Sender: TObject);
PROCEDURE NeuesProjekt1Click(Sender: TObject);
PROCEDURE Projektspeichern1Click(Sender: TObject);
PROCEDURE closeProjectAll(Sender: TObject);
PROCEDURE OpenFile(Sender: TObject);
PROCEDURE SaveAsAll(Sender: TObject);
PROCEDURE Save_as(Sender: TObject);
PROCEDURE closeProjectClick(Sender: TObject);
PROCEDURE ListProAdd(Sender: TObject;Text : STRING);
PROCEDURE OpenBtnClick(Sender: TObject);
PROCEDURE SaveBtnClick(Sender: TObject);
PROCEDURE Modulhizufgen1Click(Sender: TObject);
PROCEDURE Modulelschen1Click(Sender: TObject);
PROCEDURE Moduleditieren1Click(Sender: TObject);
PROCEDURE CanMonitor1Click(Sender: TObject);
PROCEDURE WindowMinimizeItemClick(Sender: TObject);
PROCEDURE Allevergrern1Click(Sender: TObject);
PROCEDURE Taschenrechner1Click(Sender: TObject);
PROCEDURE AcrobatReader1Click(Sender: TObject);
PROCEDURE HHITextdownload1Click(Sender: TObject);
PROCEDURE CANOPEN(Sender: TObject;a : Integer);
PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
PROCEDURE AuswahlInRead(Sender: TObject;Wert : String;i : Integer);
PROCEDURE Timer1Timer(Sender: TObject);
PROCEDURE Bearbeiten1Click(Sender: TObject);
PROCEDURE Umbennen1Click(Sender: TObject);
PROCEDURE Knotenhinzufgen1Click(Sender: TObject);
PROCEDURE Unterknotenhinzufgen1Click(Sender: TObject);
PROCEDURE Knotenlschen1Click(Sender: TObject);
PROCEDURE Parameterbearbeiten1Click(Sender: TObject);
PROCEDURE Variablenliste1Click(Sender: TObject);
PROCEDURE AlleParameterSenden1Click(Sender: TObject);
procedure closeAllClick(Sender: TObject);
procedure ZuProffesional1Click(Sender: TObject);
procedure QuelltextItemClick(Sender: TObject);
procedure ProgDlItemClick(Sender: TObject);
procedure Passwrterfestlegen1Click(Sender: TObject);
procedure DigitaloutClick(Sender: TObject);
IMPLEMENTATION//
{ Private declarations }
PROCEDURE ShowHint(Sender: TObject);
Procedure UndoProject;
procedure deltree(Dirname : string);
procedure CopyDirContentsTo(Dirname, DestDir : string);
PROCEDURE MainMenue1(Sender: TObject);

begin
{ Public declarations }
end;

type
Ptr_CPC_MSG = ^CPC_MSG;

var
MainForm : TMAINForm;
professional : byte; // Code für Freischaltung/Berechtigung 1-4
projektOffen : Boolean; // true, falls gerade ein Projekt geöffnet

MainIniPath : String;
MyIni : TIniFile;
MyProjectIni : TIniFile;
zahl : Integer;
FileList : THistoryList;
IniPfad : String;
PPfad : String;
SpeicherPfad : String;
CanHandle : Integer;
Time : Boolean;
MyMsgPtr : CPC_CAN_MSG;
MsgHandlePtr : Ptr_CPC_MSG;
Adress : Word;
AdressHelp : String;
Fehler : Integer;
KnotenNr : Integer;
Format : String;
CanAktiv : Boolean;

implementation

{$R *.DFM}

Leave a Reply

Your email address will not be published. Required fields are marked *