Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Fehler beim Beschreiben eines Records

  Alt 31. Mär 2006, 11:58
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;
Markus Kinzler
  Mit Zitat antworten Zitat