Fehler im Modul... (beim compilieren)

[Budda]

Hallo,

habe folgendes Problem, seid 2 min kann ich mein Projekt nicht mehr kompilieren.
Er schmeisst immer folgende Fehlermeldung:

Zitat:

Fehler im Modul: Deklaration der Klasse TForm1 fehlt oder ist fehlerhaft.

Aber hier ist sie doch deklariert:

Delphi-Quellcode:

type
  TForm1 = class(TForm)

Hat vielleicht jemand ne Idee?

Gruß
Budda

[alcaeus]

Schicke mal den ganzen Code, vielleicht fehlt danach etwas. Bist du sicher dass du die .dfm-Datei noch hast?

[Budda]

Hier der Code:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Info1: TMenuItem;
    Panel1: TPanel;
    ControlBar1: TControlBar;
    CoolBar1: TCoolBar;
    Einstellungen1: TMenuItem;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Panel2: TPanel;
    Bevel1: TBevel;
    N1: TMenuItem;
    Beenden1: TMenuItem;
    Label1: TLabel;
    SpeedButton3: TSpeedButton;
    Panel3: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBEdit13: TDBEdit;
    GroupBox3: TGroupBox;
    DBMemo1: TDBMemo;
    TabSheet2: TTabSheet;
    BitBtn1: TBitBtn;
    SpeedButton4: TSpeedButton;
    Bevel2: TBevel;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Bevel3: TBevel;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    ADOQuery1GGUID: TStringField;
    ADOQuery1InsertTimestamp: TDateTimeField;
    ADOQuery1CompNumber: TStringField;
    ADOQuery1FKTO: TStringField;
    ADOQuery1MtaNumber: TStringField;
    ADOQuery1ContractualRelation: TStringField;
    ADOQuery1ServiceVariant: TStringField;
    ADOQuery1CompName: TStringField;
    ADOQuery1CompStreet: TStringField;
    ADOQuery1CompZip: TStringField;
    ADOQuery1CompCountry: TStringField;
    ADOQuery1CompPhone: TStringField;
    ADOQuery1Remote: TStringField;
    ADOQuery1RemoteUser: TStringField;
    ADOQuery1RemotePassword: TStringField;
    ADOQuery1NetPhoneTyp: TStringField;
    ADOQuery1Version: TStringField;
    ADOQuery1StartUpDate: TStringField;
    ADOQuery1Partner: TStringField;
    ADOQuery1Region: TStringField;
    ADOQuery1Additive: TMemoField;
    BitBtn2: TBitBtn;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    Panel4: TPanel;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    GroupBox4: TGroupBox;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    GroupBox5: TGroupBox;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    GroupBox6: TGroupBox;
    Label30: TLabel;
    Label31: TLabel;
    DBEdit25: TDBEdit;
    GroupBox7: TGroupBox;
    DBEdit26: TDBEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    DBEdit27: TDBEdit;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    DateTimePicker2: TDateTimePicker;
    DBEdit24: TDBEdit;
    Label32: TLabel;
    ADOQuery2GGUID: TStringField;
    ADOQuery2InsertTimestamp: TDateTimeField;
    ADOQuery2NetPhoneSoftwareVersion: TStringField;
    ADOQuery2Organisation: TStringField;
    ADOQuery2OrganisationUnit: TStringField;
    ADOQuery2Workstation: TStringField;
    ADOQuery2PowerDeskWorkstation: TStringField;
    ADOQuery2S0Gateways: TStringField;
    ADOQuery2S2Gateways: TStringField;
    ADOQuery2PowerTeamBasic: TStringField;
    ADOQuery2PowerTeamComfort: TStringField;
    ADOQuery2PowerTeamEnterprise: TStringField;
    ADOQuery2ValidTo: TStringField;
    ADOQuery2Email: TStringField;
    ADOQuery2Attachment: TStringField;
    ADOQuery2KGGUID: TStringField;
    ADOQuery2S0Gateways_4: TStringField;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    SpeedButton12: TSpeedButton;
    function CreateGuid : string;
    procedure Einstellungen1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Beenden1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure BitBtn7Click(Sender: TObject);
    procedure Info1Click(Sender: TObject);
    procedure DBGrid2TitleClick(Column: TColumn);
    procedure SpeedButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Das hatte er aufeinmal nach dem Speichern, kp was das nu soll ^^
Die dfm Datei ist noch da.

[fiasko]

Der ganze Quellcode ist das doch aber nicht?! Mal Delphi neugestartet?

[Dax]

Zeig die dfm auch mal. Bitte

[shmia]

Du hast deine Funktion
function CreateGuid : string;
in den Bereich gestellt, der für die IDE reserviert ist.
Die Funktion sollte nach dem Private-Abschnitt stehen.
Ausserdem muss nach implementation folgende Zeile vorhanden sein:
{$R *.DFM}

[Dax]

Verdammt.

Is mir auch aufgefallen, hab's aber trotzdem nicht bemerkt...

[Budda]

Nein das ist nicht der ganze Quelltext, der geht über mehrere DIN A4 Seiten.
Die dfm Datei ist auch verdammt gross.

Delphi habe ich schon neu gestartet sowei den ganzen Rechner.

Zitat:

Du hast deine Funktion
function CreateGuid : string;
in den Bereich gestellt, der für die IDE reserviert ist.
Die Funktion sollte nach dem Private-Abschnitt stehen.
Ausserdem muss nach implementation folgende Zeile vorhanden sein:
Source:
{$R *.DFM}

Die Zeile ist auch enthalten.

[fiasko]

Dann zip halt alles zusammen und häng es an den Beitrag rann... ohne Quelltext können wir nur raten :-)

[Budda]

Danke für eure Hilfe, hab den Fehler nu gefunden, die Deklaration eines Buttons fehlte.