Visitor Pattern

[hansmaad]

grrr...

Delphi-Quellcode:

Schiff = class(Fahrzeug)
public
  // ...
  property Kabinen : Integer read Kabinenanzahl;
end

Delphi-Quellcode:

Auto = class(Fahrzeug)
public
  // ...
  property Reifen: Integer read Reifenanzahl;
end

Delphi-Quellcode:

procedure ReportVisitor.Visit(s : Schiff);
begin
  WriteLn('Das Schiff hat ' + s.Kabinen + ' Kabinen');
  // 100 weitere Schiffsdaten
end;
procedure ReportVisitor.Visit(a : Auto);
begin
  WriteLn('Das Auto hat ' + s.Reifen+ ' Räder');
  // 100 weitere Autodaten
end;

Nun glaubt mir mal, dass das hier ein potentieller Anwendungsfall des Visitor Musters ist.