Fehler beim Beschreiben eines Records

[WoTo]

Hallo zusammen,
ich habe mir wie folgt eine Klasse deklariert:

Delphi-Quellcode:

TTriggerBehavior  =  record
                       MemoPosition : integer;
                       Count : integer;
                     end;
TTrigger = class(TObject)
  private
    .
    .
    .
    FBehavior: TTriggerBehavior;
  public
    .
    .
    .
    property Behavior : TTriggerBehavior read FBehavior write FBehavior;
  end;

Und nun möchte ich folgende Anweisung ausführen:
ATrigger.Behavior.Count := ATrigger.Behavior.Count +1; wobei ATrigger vom Typ TTrigger ist.

Bei einem Compileversuch kommt die Fehlermeldung: der linken Seite kann nichts zugewiesen werden !

Sehe ich den Wald vor lauter Bäumen nicht mehr oder warum geht das nicht ?

Gruß
Woto

[mkinzler]

Versuchs mal mit setter-Methode.

[WoTo]

Hallo,
vielen Dank für die Antwort, aber was bedeutet "setter-Methode". Ich kenne dies nicht.
Vielleicht kannst du mir ein kleines Beispiel geben.

[mkinzler]

Delphi-Quellcode:

TTriggerBehavior  =  record
                       MemoPosition : integer;
                       Count : integer;
                     end;
TTrigger = class(TObject)
  private
    .
    .
    .
    FBehavior: TTriggerBehavior;
  public
    procedure SetTriggerBehavior( value: TTriggerbehavior);
    .
    .
    .
  published
    property Behavior : TTriggerBehavior read FBehavior write setTriggerBehavior;
  end;
...
procedure TTrigger.setTriggerBehaviour( value: TTriggerBehavoir);
begin
   FBehaviour := Value; // oder
   FBehavoiur.MemoPosition := value.MemoPosition;
   ...
end;

[WoTo]

Vielen Dank !

Hatte den Begriff "setter" nicht richtig verstanden.

Jetzt geht es !

Gruß Woto

[ste_ett]

Du darfst schreibend auf "FBehavior" zugreifen, aber nicht auf "FBehavior.Count";

Entweder du schreibst die Setter-Methoden (wie oben erwähnt) oder du schreibst den kompletten Record neu.

Bsp.:

Delphi-Quellcode:

procedure DoSomething;
var
  ATrigger: TTrigger;
  TempBehavior: TTriggerBehavior;
begin
  ATrigger := TTrigger.Create;
  TempBehavior.Count := ATrigger.Behavior.Count +1;
  TempBehavior.MemoPosition := ATrigger.Behavior.MemoPosition;
  ATrigger.Behavior := TempBehavior;
  ATrigger.Free;
end;

[Hawkeye219]

Hi,

Du könntest Dein Objekt auch so umstellen, daß es einen Zeiger auf den Record zurückliefert:

Delphi-Quellcode:

TYPE
  PTriggerBehavior = ^TTriggerBehavior;
  TTriggerBehavior = record
                       MemoPosition : integer;
                       Count : integer;
                     end;

  TTrigger = class(TObject)
    private
      FBehavior: TTriggerBehavior;
      function GetBehavior: PTriggerBehavior;
    public
      property Behavior: PTriggerBehavior read GetBehavior;
    end;

function TTrigger.GetBehavior: PTriggerBehavior;
begin
  Result := @FBehavior;
end;

Dann sind folgende Anweisungen möglich:

Delphi-Quellcode:

aTrigger.Behavior.MemoPosition := 1;

Inc (aTrigger.Behavior.Count);

aTrigger.Behavior^ := aBehavior;

Gruß Hawkeye

[WoTo]

Hallo zusammen,
ich möchte mich für die vielen Vorschläge bedanken.

Der letzte Vorschlag mit Zeigern zu operieren, gefällt mir am besten. Ich wäre im Leben nicht auf diese Möglichkeit gekommen, da ich mit Zeigern auf dem Kriegsfuß stehe.
Ich kann mir das mit den ^ und @ einfach nicht merken, mal ist es vor dem Ausdruck, mal dahinter.
Vielleicht würde ich mir es besser merken können, wenn ich einmal in C++ programmiert hätte.

Naja, nichts desto trotz : Vielen Dank !

Gruß
Woto

[Khabarakh]

Zitat von WoTo:

Ich kann mir das mit den ^ und @ einfach nicht merken, mal ist es vor dem Ausdruck, mal dahinter.

Eigentlich nicht wirklich kompliziert, wenn du es dir einmal in das Gedächtnis gerammt hast:

Zitat von Khabarakh:

^ = 1. (Präfix, unär) Deklaration eines Zeigertyps
2. (Postfix, unär) Dereferenzierung eines Zeigers

@ = (Präfix, unär) Addresse eines Ausdrucks

Zitat:

Vielleicht würde ich mir es besser merken können, wenn ich einmal in C++ programmiert hätte.

Vielleicht, aber reines Pascal-Wissen ist vollkommen ausreichend.

[Cöster]

@mkinzler: Inwiefern löst dein Vorschlag das Problem? So können die Record-Felder doch immer noch nicht direkt beschrieben werden.