Unnamed

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, pngextra, StdCtrls, ComCtrls, SkinCaption,
  WinSkinData;


type
  TForm10 = class(TForm)
    MainMenu1: TMainMenu;
    Configurao1: TMenuItem;
    Inserir1: TMenuItem;
    Apagar1: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    PNGButton1: TPNGButton;
    Time1: TLabeledEdit;
    Time2: TLabeledEdit;
    Time3: TLabeledEdit;
    Time4: TLabeledEdit;
    Time5: TLabeledEdit;
    Time6: TLabeledEdit;
    Time7: TLabeledEdit;
    Time8: TLabeledEdit;
    Time9: TLabeledEdit;
    Time10: TLabeledEdit;
    Time11: TLabeledEdit;
    Time12: TLabeledEdit;
    Time13: TLabeledEdit;
    Time14: TLabeledEdit;
    Time15: TLabeledEdit;
    Time16: TLabeledEdit;
    Time17: TLabeledEdit;
    Time18: TLabeledEdit;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet10: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    jogo12: TEdit;
    jogo11: TEdit;
    jogo14: TEdit;
    jogo13: TEdit;
    jogo16: TEdit;
    jogo15: TEdit;
    jogo18: TEdit;
    jogo17: TEdit;
    jogo20: TEdit;
    jogo19: TEdit;
    jogo22: TEdit;
    jogo21: TEdit;
    jogo24: TEdit;
    jogo23: TEdit;
    jogo26: TEdit;
    jogo25: TEdit;
    jogo28: TEdit;
    jogo27: TEdit;
    jogo10: TEdit;
    jogo9: TEdit;
    jogo8: TEdit;
    jogo7: TEdit;
    jogo6: TEdit;
    jogo5: TEdit;
    jogo4: TEdit;
    jogo3: TEdit;
    jogo2: TEdit;
    SkinData1: TSkinData;
    SkinCaption1: TSkinCaption;
    ListView1: TListView;
    jogo1: TEdit;
    procedure PNGButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;
type
 TTimes = record
   Nome: String;
   COD, Jogos: Integer;
 end;
implementation

{$R *.dfm}


function VeSeTodosEstaoCompletos: Boolean;
var
i:integer;
begin
for i := 1 to 18 do
  Times[i].Jogos;
  if i = 2 then
  begin
   Result:=True
  end
  else
  Result := False;
end;

procedure TForm10.PNGButton1Click(Sender: TObject);
var
Times: array [1 .. 18] of TTimes;
i, T: Integer;
Time1, Time2 : TTime;
begin
randomize;
Times[1].Nome := Time1.text;
Times[1].COD := 1;
Times[1].Jogos := Times[1].Jogos +1;
Times[2].Nome := Time2.text;
Times[2].COD := 2;
Times[2].Jogos := Times[2].Jogos +1;
Times[3].Nome := Time3.text;
Times[3].COD := 3;
Times[3].Jogos := Times[3].Jogos +1;
Times[4].Nome := Time4.text;
Times[4].COD := 4;
Times[4].Jogos := Times[4].Jogos +1;
Times[5].Nome := Time5.text;
Times[5].COD := 5;
Times[5].Jogos := Times[5].Jogos +1;
Times[6].Nome := Time6.text;
Times[6].COD := 6;
Times[6].Jogos := Times[6].Jogos +1;
Times[7].Nome := Time7.text;
Times[7].COD := 7;
Times[7].Jogos := Times[7].Jogos +1;
Times[8].Nome := Time8.text;
Times[8].COD := 8;
Times[8].Jogos := Times[8].Jogos +1;
Times[9].Nome := Time9.text;
Times[9].COD := 9;
Times[9].Jogos := Times[9].Jogos +1;
Times[10].Nome := Time10.text;
Times[10].COD := 10;
Times[10].Jogos := Times[10].Jogos +1;
Times[11].Nome := Time11.text;
Times[11].COD := 11;
Times[11].Jogos := Times[11].Jogos +1;
Times[12].Nome := Time12.text;
Times[12].COD := 12;
Times[12].Jogos := Times[12].Jogos +1;
Times[13].Nome := Time13.text;
Times[13].COD := 13;
Times[13].Jogos := Times[13].Jogos +1;
Times[14].Nome := Time14.text;
Times[14].COD := 14;
Times[14].Jogos := Times[14].Jogos +1;
Times[15].Nome := Time15.text;
Times[15].COD := 15;
Times[15].Jogos := Times[15].Jogos +1;
Times[16].Nome := Time16.text;
Times[16].COD := 16;
Times[16].Jogos := Times[16].Jogos +1;
Times[17].Nome := Time17.text;
Times[17].COD := 17;
Times[17].Jogos := Times[17].Jogos +1;
Times[18].Nome := Time18.text;
Times[18].COD := 18;
Times[18].Jogos := Times[18].Jogos +1;
for T := 1 to 18 do
begin
Times[T].COD := T;
Times[T].Nome := TEdit(FindComponent('Time' + IntToStr(T))).Text;end;
Times[T].Jogos := 0;
end;
T := 1;
repeat
    Time1 := Times[Random(19)+1];
    Time2 := Times[Random(19)+1];
    if (Time1.COD <> Time2.COD) and ((Time1.Jogos < 2) and (Time2.Jogos < 2)) then
    begin
      Time1.Jogos := Time1.Jogos +1;
      Time2.Jogos := Time2.Jogos +1;
      TEdit(FindComponent('Time' + IntToStr(T))).Text := Time1.Nome;
      TEdit(FindComponent('Time' + IntToStr(T+1))).Text := Time2.Nome;
      Inc(T, 2);
    end;
  end;
until VeSeTodosEstaoCompletos;
end.