Свернуть ↑

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
TIgrok = class // заголовок класса
private // закрытые свойства
Fam:string; // фамилия игрока
Nom:integer; //номер игрока в команде
public // открытые свойства
constructor Create (NewFam:string;NewNom:integer);
end; // конец описания класса

TKomanda = class // заголовок класса
private // закрытые свойства
n:string; // название команды
Igr : array [1..11] of TIgrok; // массив указателей на игроков
public // открытые свойства
constructor Create;
function Add (aIgrok : TIgrok) : boolean; // добавляем в конец набора
function Delete (ai : integer) : TIgrok; // удаление игрока по номеру
end; // конец описания класса

TArrayLigaContainer = class
private
Nazv:string;//Название лиги
count : integer; // текущее число команд в лиге
Circs : array [1..100] of TKomanda; // массив указателей на команды
public
constructor Create; // создаём пустой контейнер
function GetCount : integer; //количество команд
function Add (aKomand : TKomanda) : boolean; // добавляем в конец набора
function Delete (ai : integer) : TKomanda; // удаление объекта по номеру
end;
var
Form1: TForm1;

implementation

{$R *.dfm}

end.

Свернуть ↑
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Unit2;

type
TForm1 = class(TForm)
btn1: TButton;
lbl1: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MyIgrok : TIgrok;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
MyIgrok:=nil;
MyIgrok:= TIgrok.Create;
MyIgrok := TIgrok.Create ('fio',1);
MyIgrok.Show;

end;

end.

Свернуть ↑
unit Unit2;

interface

type
TIgrok = class
private

fio : string;
num : integer;
public
constructor Create; overload;
constructor Create (afio : string;anum:Integer ); overload;
function GetFIO : string;
function GetNum : integer;
procedure SetFIO (afio : string);
procedure SetNum (anum : integer);
procedure Show;
end;



implementation

uses Unit1;

constructor TIgrok.Create;
begin


end;

constructor TIgrok.Create (afio:string;anum : integer);
begin
num := anum;
fio := afio;
end;

function TIgrok.GetNum: integer;
begin
result := num;
end;

function TIgrok.GetFIO : string;
begin
result := fio;
end;



procedure TIgrok.Show;
begin
{Form1.Canvas.TextOut(50,50,num);}
Form1.lbl1.Caption:= 'num';
end;

procedure TIgrok.SetFIO(afio: string);
begin

end;

procedure TIgrok.SetNum(anum: integer);
begin

end;


end.

Свернуть ↑
unit Unit3;

interface

uses Unit2;

type
ListItem = class
private
ItemInf : string;
Next : ListItem;
Igrok : TIgrok;
public
constructor Create (aInf : string; aNext : ListItem; aIgrok : TIgrok );
function GetNext : ListItem;
function GetIgrok : TIgrok;
function GetInf : string;
procedure SetNext (aNext : ListItem);
procedure SetIgrok (aIgrok : TIgrok);
procedure SetInf (aInf : string);
end;

implementation


{ ListItem }

constructor ListItem.Create(aInf: string; aNext: ListItem; aIgrok: TIgrok);
begin

end;

function ListItem.GetIgrok: TIgrok;
begin

end;

function ListItem.GetInf: string;
begin

end;

function ListItem.GetNext: ListItem;
begin

end;

procedure ListItem.SetIgrok(aIgrok: TIgrok);
begin

end;

procedure ListItem.SetInf(aInf: string);
begin

end;

procedure ListItem.SetNext(aNext: ListItem);
begin

end;

end.

Свернуть ↑
unit Unit4;

interface
uses Unit2,Unit3;

type
CircleListContainer = class
private
ContInf : string;
First : ListItem;
public
constructor Create (ainf : string);
function GetFirst : ListItem;
procedure Add (ainf : string; aIgrok: TIgrok);
function Delete (ainf : string) : boolean;
{ function Search (aRad : integer) : ListItem;}
{procedure ShowAll;}
procedure MoveAll (dx, dy : integer);
end;

implementation

uses Unit1;

{ CircleListContainer }

constructor CircleListContainer.Create(ainf: string);
begin
First := nil; ContInf := ainf;
end;

procedure CircleListContainer.Add(ainf: string; aIgrok: TIgrok);
begin
First := ListItem.Create (ainf, First, aIgrok);
end;



function CircleListContainer.Delete(ainf: string): boolean;
begin

end;

function CircleListContainer.GetFirst: ListItem;
begin

end;

procedure CircleListContainer.MoveAll(dx, dy: integer);
begin

end;

{function CircleListContainer.Search(aRad: integer): ListItem;
var
Temp : ListItem;
begin
result := nil;
Temp := First;
while (Temp <> nil) do
if (Temp.GetIgrok.GetIgrok = aRad) then
begin
result := Temp;
break;
end
else Temp := Temp.GetNext
end; }

{procedure CircleListContainer.ShowAll;
var
Temp : ListItem;
begin
Temp := First;
while (Temp <> nil) do
begin
Temp.GetCirc.Show;
Temp := Temp.GetNext;
end;
end;}

end.