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.