Records in Klassen als Property

[DelphiManiac]

Hallo ich habe folgendes Problem,

ich besitzte eine Klasse und einene Datentyp(record) dieser Datentyp beinhaltet verschiedene andere Datentypen.

Delphi-Quellcode:

..
 THerstellerDaten = record
    GeraeteTyp      :TASCII;
    Seriennummer    :TASCII;
    Herstelldatum   :TASCII;
    SensorTyp       :TASCII;
    SoftwareVersion :TASCII;
    SoftwareDatum   :TASCII;
    SoftwareRelease :Word;
    SoftwareSubRelease:Word;
    Sprache         :Word;
  end;
  TTest = class(TObject)
  private
   fHerstellDaten:THerstellerDaten;
  public
   Herstellerdaten:THerstellDaten
     read fHerstellDaten write fHerstelldaten;
...


// Wie kann ich nun auf den record schreibend in meine Objekt zugreifen??????????????
var
  myObj:TTest;
begin
  myObj:TTest.Create;
  myObj.HerstellerDaten.Geraetetyp:='Typ XYZ'; // Das klappt nicht, aber warum????
..

Danke schonmal
Gruß DelphiManiac

[SirThornberry]

also erstmal fehlt bei dir das schlüsselwort "property" und zum anderen kann man Properties nur komplett lesen und komplett schreiben. Du musst also immer den kompletten Record zuweisen.

Grund das man nur komplett schreiben kann ist, das hinter einem Property SetMethoden stehen können und diese benötigen eben den kompletten Typ und nicht nur einen Teil.

Übrigens:
Formulierungen wie

Zitat:

Das klappt nicht, aber warum????

Helfen keinem wenn du uns verschweigst was du als nicht klappen ansiehst. Kommt ein Fehler? Wenn ja - Welcher?

[Luckie]

Geht doch:

Delphi-Quellcode:

type
  TMyRecord = packed record
    FZahl: Integer;
    FString: String;
  end;

  TMyClass = class(TObject)
  private
    FMyRecord: TMyRecord;
  public
    property MyRecord: TMyRecord read FMyRecord write FMyRecord;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  MyClass: TMyClass;
begin
  MyClass := TMyClass.Create;
  try
    MyClass.FMyRecord.FZahl := 8;
    MyClass.FMyRecord.FString := 'Foobar';
    ShowMessage(MyClass.FMyRecord.FString + IntToStr(MyClass.FMyRecord.FZahl));
  finally
    MyClass.Free;
  end;
end;

Aber ich würde aus dem Record eine Klasse machen und die Objekte dann in einer Containerklasse verwalten.

[SirThornberry]

@Luckie: Bei dir geht es nur weil du direkt auf die Variable zugreifst und nicht über das Property (du nutzt FMyRecord anstelle von MyRecord)

[Luckie]

Ups. :oops:

Nun ja, wenn man direkt auf das Feld zugreift, geht es jedenfalls.

[SirThornberry]

Zitat:

Zitat von Luckie

Ups. :oops:

Nun ja, wenn man direkt auf das Feld zugreift, geht es jedenfalls.

Was aber zum Glück nicht möglich ist wenn die Klassendefinition in einer anderen Unit ausgelagert ist.

[Hawkeye219]

Hallo,

hier ist noch eine Möglichkeit: klick

Gruß Hawkeye

[DelphiManiac]

Hi,

das property habe ich hier beim abtippen vergessen..

der Zugriff auf meine einzelnen Elemente des Records im Objekt klappt doch.
Die Codevervollständigung hatte es mir irgendwie nicht angezeigt, jetzt klappts aber...

Danke nochmal