Observer pattern

Hvad er et Observer / Observer pattern?  Har det nogen relevans til spørgsmålet, som tilsyneladende mest drejer sig om hvorledes man opbygger en dobbelt linked liste af poster, der hver indeholder et object (en pointer) samt nogle interger værdier.

Peter

Et observer pattern en en model til at sørge for at forskelige klienter blvier opdateret, den indeholder følgende funktioner.

Attach(object), detach(Object), update(), notify().

kendes også som Dependts eller Publisher-Subscriber

Hvor ligger listen?

i en unti for sig selv, den opretholder sig selv, med en first + last (hvis doublet linket).

/* Seider */

Kan du bruge det her?  Det er banket sammen på 20 minutter og slet ikke testet, men compileren æder det, så mon ikke at det funker.

{**********************************************************************}
{* Unit: ObsList                                                      *}
{* Author: Niels Peter Gibe, 2001-04-18                              *}
{*                                                                    *}
{* Description:                                                      *}
{* Defines TObserverList and related classes for some dude on the    *}
{* Eksperten site....                                                *}
{*                                                                    *}
{**********************************************************************}
{* Revision:                                                          *}
{*                                                                    *}
{**********************************************************************}
unit ObsList;
interface
Uses
  SysUtils; // Definition of Exception class.

Type
  TObsType  = (ObsA, ObsB);
  TObsAntal = Array[Low(TObsType)..High(TObsType)] Of Integer;

Type
  TObserverObject = Class
    Private
      FObsType : TObsType;
      FNext    : TObserverObject;
      FPrev    : TObserverObject;
    Published
      Constructor Create(aObsType : TObsType);
      Property ObsType : TObsType        read FObsType write FObsType;
      Property Prev    : TObserverObject read FPrev write FPrev;
      Property Next    : TObserverObject read FNext write FNext;
  End;

Type
  TObserverList = Class
    Private
      FFirst    : TObserverObject;
      FLast    : TObserverObject;
      FCurrent  : TObserverObject;
      FObsAntal : TObsAntal;

      Function GetPrev        : TObserverObject;
      Function GetNext        : TObserverObject;
      Function GetCurObsType  : TObsType;
      function GetAntal: Integer;
      function GetObsAntal(Index: TObsType): Integer;
    Public
      Procedure Append(ObsObj : TObserverObject);

      Property First      : TObserverObject read FFirst;
      Property Last      : TObserverObject read FLast;
      Property Prev      : TObserverObject read GetPrev;
      Property Next      : TObserverObject read GetNext;
      Property CurObsType : TObsType        read GetCurObsType;
      Property Antal      : Integer        read GetAntal;
      property ObsAntal[Index: TObsType] : Integer read GetObsAntal;
  End;

implementation

{ TObserverObject }

constructor TObserverObject.Create(aObsType : TObsType);
begin
  FPrev    := Nil;
  FNext    := Nil;
  FObsType := aObsType;
end;

{ TObserverList }

procedure TObserverList.Append(ObsObj: TObserverObject);
begin
  If FFirst = Nil Then
    Begin
      FFirst  := ObsObj;
      FLast    := ObsObj;
      FCurrent := ObsObj;
    End
  Else
    Begin
      Last.Next := ObsObj;
      FLast    := ObsObj;
    End;

  Inc(FObsAntal[ObsObj.ObsType]);
end;

function TObserverList.GetAntal: Integer;
Var
  Index : TObsType;
begin
  Result := 0;
  For Index := Low(TObsType) to High(TObsType) Do
    Result := Result + ObsAntal[Index];
end;

function TObserverList.GetCurObsType: TObsType;
begin
  If FCurrent=Nil Then
    Raise Exception.Create(\'Error: Current object is undefined.\');

  Result := FCurrent.ObsType;
end;

function TObserverList.GetPrev: TObserverObject;
begin
  If FCurrent=Nil Then
    Raise Exception.Create(\'Error: Current object is undefined.\');

  FCurrent := FCurrent.Prev;
  Result  := FCurrent;
end;

function TObserverList.GetNext: TObserverObject;
begin
  If FCurrent=Nil Then
    Raise Exception.Create(\'Error: Current object is undefined.\');

  FCurrent := FCurrent.Next;
  Result  := FCurrent;
end;

function TObserverList.GetObsAntal(Index: TObsType): Integer;
begin
  Result := FObsAntal[Index];
end;


end.

Sidder lige og ser en ting.

Når man læser/kalder Listens First og Last properties, så får man ganske rigtigt det første/sidste element i listen.  Men! - dette flytter ikke current object pointeren.  Hvis dette er ønsket/nødvendigt, så må du lige lave to getter metoder for First/Last, hvor du dels returner FFirst og FLast værdierne, samt sættrer FCurrent til enten FFirst/FLast.

Peter

Sidder lige og ser en ting.

Når man læser/kalder Listens First og Last properties, så får man ganske rigtigt det første/sidste element i listen.  Men! - dette flytter ikke current object pointeren.  Hvis dette er ønsket/nødvendigt, så må du lige lave to getter metoder for First/Last, hvor du dels returner FFirst og FLast værdierne, samt sættrer FCurrent til enten FFirst/FLast.

Peter

Ups...dobbelt click... Sikke en begynder fejl...

skal lige evaluere det

Har du så fået evalueret det?
Peter

jeg skal lige bruge 3 min mere på at evaluere, 5 min var ikke nok

har ikke tjeketom det virker du får points for indsatsen....

Det gør det (virker altså...)