Neue Kompo mit eigenem Typ

[Nalincah]

Sorry. Hier:

Delphi-Quellcode:

unit uMP_Strasse;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls;

type
  TMieten = class(TPersistent)
  private
    FMiete:Integer;
    FMiete1Haus: Integer;
    FMiete2Haus: Integer;
    FMiete3Haus: Integer;
    FMiete4Haus: Integer;
    FMieteHotel: Integer;
  published
    property Miete: Integer read FMiete write FMiete;
    property Miete1Haus: Integer read FMiete1Haus write FMiete1Haus;
    property Miete2Haus: Integer read FMiete2Haus write FMiete2Haus;
    property Miete3Haus: Integer read FMiete3Haus write FMiete3Haus;
    property Miete4Haus: Integer read FMiete4Haus write FMiete4Haus;
    property MieteHotel: Integer read FMieteHotel write FMieteHotel;
  end;

  TStrassenWerte = class(TPersistent)
  private
    FStrassenName:String;
    FGrundstueckswert: Integer;
    FHauskosten: Integer;
    FHotelkosten: Integer;
    FMieten:TMieten;
  published
    property StrassenName: String read FStrassenName write FStrassenName;
    property Grundstueckswert: Integer read FGrundstueckswert write FGrundstueckswert;
    property Hauskosten: Integer read FHauskosten write FHauskosten;
    property Hotelkosten: Integer read FHotelkosten write FHotelkosten;
    property Mieten:TMieten read FMieten write FMieten;
  end;

  TMP_Strasse = class(TImage)  private
    FStrassenWerte:TStrassenWerte;
  published
    property StrassenWerte: TStrassenWerte read FStrassenWerte write FStrassenWerte; 
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Monopoloy', [TMP_Strasse]);
end;

end.

Soll ein Monopoly-Klon werden *g*