Fórum Campeonato Brasileiro [Delphi] #531860

type
  TTime = record
      Nome          : string;
      Pontos        : integer;
      Vitorias      : integer;
      Empates       : integer;
      Derrotas      : integer;
      GolPos        : integer;
      GolNeg        : integer;
      SldGol        : integer;
      Classificacao : integer;
  end;

var
  frmClassificacao: TfrmClassificacao;
  ArquivoTexto: textfile;
  Time : Array[1..20] of TTime;

implementation

uses Principal;

{$R *.dfm}

procedure TfrmClassificacao.FormShow(Sender: TObject);
var
  Linha: string;
  TimeA, TimeB: string;
  PlacarA, PlacarB: integer;
begin
  with strgrdClassificacao do
  begin
    Cells[0,0] := 'TIME';
    Cells[1,0] := 'P';
    Cells[2,0] := 'V';
    Cells[3,0] := 'E';
    Cells[4,0] := 'D';
    Cells[5,0] := 'GP';
    Cells[6,0] := 'GN';
    Cells[7,0] := 'SG';
  end;
  // abrir o arquivo texto
    AssignFile(ArquivoTexto, frmPrincipal.opndlgJogos.FileName);
    Reset(ArquivoTexto);
    while not Eof(ArquivoTexto) do
    begin
      //processar os jogos
      Readln(ArquivoTexto, Linha);

      TimeA := Copy(Linha, 1, Pos(';', Linha) -1);
      Delete(Linha, 1, Pos(';', Linha));

      PlacarA := StrToInt(Copy(Linha, 1, Pos(';', Linha) -1));
      Delete(Linha, 1, Pos(';', Linha));

      TimeB := Copy(Linha, 1, Pos(';', Linha) -1);
      Delete(Linha, 1, Pos(';', Linha));

      PlacarB := StrToInt(Linha);

    //processar resultado do jogo
      if PlacarA > PlacarB  //venceu timeA
      then
        begin
          Time timeA
        end;

      if PlacarB > PlacarA  //venceu timeB
      then
        begin

        end;

      if PlacarA = PlacarB  //Empate
      then
        begin

        end;
    end;


  //exibir no string grid

  //fechar arquivo
    CloseFile(ArquivoTexto);
  //classificação

end;