Es ist immer noch ein Beispiel für Java und Muster (von Java und Muster Yan Hong). Im Folgenden ist der in Delphi konvertierte Code und diesmal einen Kommentar hinzugefügt :)
Einheit BuilderPattern;
Schnittstelle
Typ
TProduct = Klasse;
// Abstrakte Builder -Spezifikationsschnittstelle
Tbuilder = class (tobject)
öffentlich
Prozedur BuilderPart1 ();
Procedure BuilderPart2 ();
Funktion returnProduct (): TPROD;
Ende;
// Erstellen Sie die spezifischen Erstellungsklassen und Komponenten zusammen, damit der Kunde die spezifischen Konstruktionsdetails nicht kennen muss
Tconcretebuilder = Klasse (TBuilder)
Privat
Produkt: Tprodukt;
öffentlich
Procedure BuilderPart1 ();
procedure builderPart2 ();
Funktion returnProduct (): TPROD;
Ende;
// Produkte
TProduct = class (tobject)
//
Ende;
// Die Rolle des Direktors wird direkt vom Kunden verwendet
Tdirector = class (tobject)
Privat
Erbauer: Tbuilder;
öffentlich
Prozedur initialize ();
Ende;
Durchführung
{Tdirector}
Verfahren tdirector.initialize;
Beginnen
Builder: = tconcretebuilder.create;
Builder.builderPart1 ();
Builder.builderPart2 ();
Builder.ReturnProduct;
Ende;
{Tconcretebuilder}
procedure tconcretebuilder.builderPart1;
Beginnen
// dein Code
Ende;
procedure tconcretebuilder.builderPart2;
Beginnen
// dein Code
Ende;
Funktion tconcreteBuilder.ReturnProduct: TProduct;
Beginnen
Ergebnisse: = Produkt;
Ende;
Ende.