Eigenen typ "deklarierien"

[Noobix93]

Habe heute verzweifelt versucht einen eigenen typ zu deklarieren...

Also ich weis nicht was daran falsch sein soll, nach "private" wird alles als Fehler angezeigt.

Delphi-Quellcode:

unit LangMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ImgList, ExtCtrls, ComCtrls,XMLIntf, msxmldom, XMLDoc,
  XPMan, Menus;

type
  TMain = class(TForm)
    LangTree: TTreeView;
    Panel1: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    Images: TImageList;
    HotKey1: THotKey;
    XPManifest1: TXPManifest;
    PopupMenu1: TPopupMenu;
    NeuenZeichensatzderSprachehinzufgen1: TMenuItem;
    Zeichensatzlschen1: TMenuItem;
    Zeichensatzeditieren1: TMenuItem;
    N1: TMenuItem;
    Sprachebersetzen1: TMenuItem;
    Sprachelschen1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure LangTreeMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    end;
    type TAdressRecord = record
      name: string;
      plz: integer;
      ort: string;
    end;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

[Chemiker]

Hallo Noobix93,

Delphi-Quellcode:

unit LangMain; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ImgList, ExtCtrls, ComCtrls,XMLIntf, msxmldom, XMLDoc, 
  XPMan, Menus; 

type TAdressRecord = record 
      name: string; 
      plz: integer; 
      ort: string; 
    end; 

type 
  TMain = class(TForm) 
    LangTree: TTreeView; 
    Panel1: TPanel; 
    Label1: TLabel; 
    Panel2: TPanel; 
    Images: TImageList; 
    HotKey1: THotKey; 
    XPManifest1: TXPManifest; 
    PopupMenu1: TPopupMenu; 
    NeuenZeichensatzderSprachehinzufgen1: TMenuItem; 
    Zeichensatzlschen1: TMenuItem; 
    Zeichensatzeditieren1: TMenuItem; 
    N1: TMenuItem; 
    Sprachebersetzen1: TMenuItem; 
    Sprachelschen1: TMenuItem; 
    procedure FormCreate(Sender: TObject); 
    procedure LangTreeMouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    end; 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end;

Du hast die Type-Deklaration innerhalb der Klasse.

Bis bald Chemiker

[Noobix93]

Alles klar... ^^ verstanden& funktioniert - danke dir.