Met
Code:
Ploeg = class
private
FNaam: string;
public
function get_Naam: string;
constructor Create(ANaam: string);
function ToString: string; override;
property Naam: string read get_Naam;
end;
Wedstrijd = class
private
FThuisPloeg, FUitPloeg: Ploeg;
public
function get_ThuisPloeg: Ploeg;
function get_UitPloeg: Ploeg;
public
constructor Create(AThuisPloeg, AUitPloeg: Ploeg);
function ToString: string; override;
property ThuisPloeg: Ploeg read get_ThuisPloeg;
property UitPloeg: Ploeg read get_UitPloeg;
end;
Competitie = class(TObject,IEnumerable)
private
FWedstrijden: ArrayList;
public
function GetEnumerator: IEnumerator;
function get_WedstrijdCount: Int32;
function get_Wedstrijden(index: Int32): Wedstrijd;
public
constructor Create;
destructor Destroy;override;
procedure Genereer(APloegen: array of Ploeg);
function ToArray: System.Array;
property Wedstrijden[index: Int32]: Wedstrijd read get_Wedstrijden;
property WedstrijdCount: Int32 read get_WedstrijdCount;
private
end;
Kan je b.v. dit:
Code:
procedure FormMain.FormMain_Load(sender: System.Object; e: System.EventArgs);
type
Ploegen = array of Ploeg;
begin
FCompetitie := CompetitieU.Competitie.Create;
FCompetitie.Genereer(
Ploegen.Create(Ploeg.Create('Vooruit Weesp'),
Ploeg.Create('Eendracht Breda'),
Ploeg.Create('Ninove Kampioen'),
Ploeg.Create('Wilskracht Limburg')));
ListBox1.DataSource := FCompetitie.ToArray;
RichTextBox1.Text := Rapport;
end;
Bookmarks