Record über Klasse für andere Klassen sichtbar machen

[Christian18]

Hallo,

ich habe mir ein Record Definiert. Das habe ich so gemacht:

Delphi-Quellcode:

type
  TIntervall = record
    PosX : Integer;
    PosY : Integer;
    NegX : Integer;
    NegY : Integer;
  end;

Über die Funktion property wollte ich dies jetzt für andere Klassen sichbar machen.

Das habe ich so gemacht:

Delphi-Quellcode:

type
  TKlasse = class
  private
    FIntervall : TIntervall;
  public

  published
    property Intervall : TIntervall Read FIntervall Write FIntervall;
  end;

Wenn ich jetzt auf einer anderen Klasse auf meine Eigenschaft zugreifen will, dann sagt mir der Compiler, dass der Linken Seite nichts zugewiesen werden kann. Was habe ich falsch gemacht???

k.Intervall.PosX:=2; // Hier kommt der Fehler

[3_of_8]

Das geht einfach nicht. Der Getter der Property erstellt eine Kopie des records, und der kannst du nichts zuweisen. Mach aus dem Record einfach eine Klasse, dann geht das.

[Flips]

Hi.

Das geht schon, bei mir jedenfalls wenn ich das Problem richtig verstanden habe.
Probier mal das:

Delphi-Quellcode:

type
  TIntervall = record
    PosX : Integer;
    PosY : Integer;
    NegX : Integer;
    NegY : Integer;
  end;

type
TMyClass = class
private
  FIntervall : TIntervall;
public
  property Intervall : TIntervall read FIntervall write FIntervall;
end;

[...]

var
  Meins: TMyClass;
  buffer : TIntervall;
begin
Meins := TMyClass.Create;
try
  Buffer.PosX := 5;
  Meins.Intervall := Buffer;
  ShowMessage(IntToStr(Meins.Intervall.PosX));
finally
  Meins.Free;
end;

Bei mir gibt er dann die gewünschte '5' aus.

[Edit=Versuche eine Begründung]
Ich glaube es liegt daran, dass du mit
(Meins.Intervall.PosX := 5)
nichts erreichen wirst, weil die Property ja nur für den Record allgemein gilt und nicht für dessen Variablen.
Wenn du stattdessen einen ganzen Record übergibst
(Meins.Intervall := Buffer
in welchem die gewünschten Variablen drin sind, dann kann die Property das auch verarbeiten, da sie auch für den Record-Typ ausgelegt ist.
[/Edit]

[Christian18]

Kann ich nicht auch das gewünschte Ziel erreichen, ohne einen Buffer???

[Hawkeye219]

Hallo Christian,

schau mal hier: klick

Gruß Hawkeye