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.