Qual Campo e qual Índice foi usado da Classe Ancestral?
22/11/2005
0
type TClube = class GolsCod: array of Smallint; ... ... Public procedure Add_Gol (Cod_Jogador: Smallint); end; type TConfronto = class Clube_1: TClube; Clube_2: TClube; ... ... end;
declaro também uma variável do tipo array de TConfronto
implementation uses var Confrontos: array of TConfronto;
quando vou disparar o evento Add_Gol faço o seguinte:
Confrontos[0].Clube_1.Add_Gol(10);
preciso saber duas doisas:
1- Dentro do procedimento Add_Gol como faço para saber se quem disparou foi o Clube_1 ou o Clube_2?
2- Dentro do procedimento Add_Gol como faço para saber qual o índice de Confrontos? (neste caso 0)?
Raserafim
Posts
22/11/2005
Siam
23/11/2005
Raserafim
pelo Self consigo saber a classe, mas não o campo que a chamou.
23/11/2005
Siam
Confrontos[0].Clube_1.Add_Gol(10, 0); procedure TClube.Add_Gol (Cod_Jogador: Smallint; ind:Integer); begin if Self = Confrontos[ind].Clube1 then ... end;
24/11/2005
Raserafim
mas o índice realmente tenho que passar como parâmetro? ou dá pra descobrir tb?
24/11/2005
Siam
procedure TClube.Add_Gol (Cod_Jogador: Smallint); var i:Integer; begin for i := 0 to High(Confrontos) do begin if Self = Confrontos[i].Clube1 then begin ... Break; end else if Self = Confrontos[i].Clube2 then begin ... Break; end end; end;
Clique aqui para fazer login e interagir na Comunidade :)