Problem : Spieler-Paarungen für Turnierverwaltung...

[Nightshade]

So, um mal ein bisserl ins Detail zu gehen, zeige ich mal was ich schon habe.

Delphi-Quellcode:

type TBegegnungsState = ( bsPlayAble, bsPlaying, bsPlayed );

type TSpieler = record
  Name : string;
  Index : integer;
  HF : string;
  SG : string;
  HS : integer;
end;

type TBegegnung = class(TComponent)
  public
    Spieler1 : TSpieler;
    Spieler2 : TSpieler;
    erg1 : Integer;
    erg2 : Integer;
    State : TBegegnungsState;
    constructor Create(AOwner: TComponent); override;
    destructor destroy; override;
    procedure ShowErgDialog;
end;

Delphi-Quellcode:

  private
     Begegnungsliste : TObjectList;

In Begegnungsliste sind alle Begegnungen gespeichert, die stattfinden werden.