Einzelnen Beitrag anzeigen

GroHae

Registriert seit: 19. Apr 2007
Ort: Nabburg
83 Beiträge
 
Delphi 2007 Enterprise
 
#1

System.Collections in Delphi32 einbinden

  Alt 1. Aug 2007, 22:04
Hallo zusammen,

wenn ich delphi mir z.B. das Composite Muster erstellen lasse, erzeugt er mir diesen Code:
Delphi-Quellcode:
interface

uses System.Collections; // Fehler // Das ist wohl .NET


type
  TSpeisenkarteKomponente = class abstract
  public
    procedure SampleOperation(i :Integer);virtual;abstract;
    procedure Add(AComponent :TSpeisenkarteKomponente);virtual;
    procedure Remove(AComponent :TSpeisenkarteKomponente);virtual;
    function Components: IEnumerator;virtual; // Fehler
    function GetName: string;
  end;

  TSpeisekarte = class(TSpeisenkarteKomponente)
  strict private var
    ///<associates>TComponent</associates>
    /// <link>aggregation</link>
    /// <supplierCardinality>0..*</supplierCardinality>
    FComponentList:ArrayList; // Fehler

  public
    constructor Create;
    procedure SampleOperation(i :Integer);override;
    procedure Add(AComponent :TSpeisenkarteKomponente);override;
    procedure Remove(AComponent :TSpeisenkarteKomponente);override;
    function Components: IEnumerator;override; // Fehler
  end;

  TSpeise = class(TSpeisenkarteKomponente)
  public
    procedure SampleOperation(i :Integer);override;
    function GetName: string;
  end;
So cann ich das nicht kompelieren, da System.Collections anmeckert und dann natürlich IEnumerator und ArrayList nicht kennt.

Wie kann ich System.Collections einbinden?
Grüße

Thomas
  Mit Zitat antworten Zitat