Fehler beim Beschreiben eines Records

[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