Records Verschachteln

[Mr.XYZ]

Hi,
ich weiß nicht ob diese Frage schon einmal gestellt wurde, aber ich wüste gerne wie man records verschachtelt. ich habe es schon einmal probiert, aber das ging nicht.

Delphi-Quellcode:

var

  Tnumer : record
           zahl : string;
           end;
  Toperation : record
               operant : string;
               end;
  Trechnung : record
              numer : Tnumer;
              operation : Toperation;
              end;

Also als Fehlermeldung kommt immer:
Konstante oder Typbezeichnung erwartet
Kann mir jemand helfen? :roll:

[generic]

Wenn du Typen definieren willst musst du das Schlüsselwort "Type" nutzen und nicht "Var".

Ach Ja:
Willkommen in der DP

[Mr.XYZ]

Oh.. :oops: okay.. Danke

[Mr.XYZ]

hmm.. jetzt heißt es aber immer Eine Bezeichner erwarte aber Record gefunden. :roll:

[DeddyH]

Delphi-Quellcode:

type TMeinRec = record  // = statt :
  EinIntFeld: integer;
end;

[Mr.XYZ]

das geht aber auch nicht.
jetziger Fehler: Felddefinition nicht erlaubt nach Methode oder Eingenschaft

[DeddyH]

Zeig doch einmal Deinen aktuellen Code.

[Mr.XYZ]

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Bevel1: TBevel;
    Edit2: TEdit;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

    Tnumer = record
           zahl : string;
           end;
  Toperation = record
               operant : string;
               end;
  Trechnung = record
              numer : Tnumer;
              operation : Toperation;
              end;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

[DeddyH]

Delphi-Quellcode:

type

  Tnumer = record
           zahl : string;
           end;
  Toperation = record
               operant : string;
               end;
  Trechnung = record
              numer : Tnumer;
              operation : Toperation;
              end;

  TForm2 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Bevel1: TBevel;
    Edit2: TEdit;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

[Mr.XYZ]

gut, geht jetzt danke!! :-D