Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#6

AW: Zur Laufzeit erzeugte Klassen mit Parametern versorgen

  Alt 8. Mär 2012, 17:37
Vielleicht suchst du auch das Builder-Design-Pattern.
Ein Builder ist eine Klasse, die ein oder mehrere Objekte in mehreren Schritten erstellen kann.

Kleines Beispiel:
Delphi-Quellcode:
TCarBuilder = class(TObject)
public
  procedure AddChassis(lenght,width:integer);
  procedure AddEngine(horsepower:double);
  procedure SetColor(color:TColor);
  procedure AddTyres(diameter:integer);

  function GetCar:TCar;
end;

var
  builder : TCarBuilder;
  newcar : TCar;
begin
  builder := TCarBuilder.Create;
  // Schrittweise zusammenbauen
  builder.AddChassis(460, 165);
  builder.AddEngine(210.0 {PS});
  builder.SetColor(clBlack);
  builder.AddTyres(19 {Zoll});
  // und Ergebnis abholen
  newcar := builder.GetCar;
Ein Builder kann natürlich auch durch Konfigurationsdateien gesteuert werden.
Andreas
  Mit Zitat antworten Zitat