Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Eigenen typ "deklarierien" (https://www.delphipraxis.net/128852-eigenen-typ-deklarierien.html)

Noobix93 7. Feb 2009 17:19


Eigenen typ "deklarierien"
 
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 7. Feb 2009 17:24

Re: Eigenen typ "deklarierien"
 
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 7. Feb 2009 17:26

Re: Eigenen typ "deklarierien"
 
Alles klar... ^^ verstanden& funktioniert - danke dir.


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:20 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz