Ver Mensaje Individual
  #2  
Antiguo 14-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

A ver si esto puede servirte de algo. Si tienes alguna duda ya sabes que aquí hay gente dispuesta a echarte una mano.

Código Delphi [-]
unit UTeam;

interface

{ Clase TJugador, que me invento y a la que añado
  una propiedad para que sirva de ejemplo. Creo
  esta clase porque estás solicitando un Array
  de Jugadores... y tiene que haber jugadores...
}
type
  TJugador = class
  private
    FNombre: string;
  public
    property Nombre: string read FNombre write FNombre;
  end;

{ Tipo Array de jugadores
}
type
  TArrayJugadores = array[0..19] of TJugador;

{ Clase TTeam... ¿te fijaste que nombré las clases
  comenzando por "T" de "Type"? Es una convención
  muy utilizada en Delphi, así como comenzar los
  identificadores de variables privadas con "F"
  de "Field". ;-)
}
type
  TTeam = class
  private
    FIndex: Byte;
    FJugadores: TArrayJugadores;
  public
    constructor CreaTeam(AIndex: Byte; Jugadores: TArrayJugadores);
  public
    { Añado también la propiedad de sólo lectura Jugadores
      y lo hago únicamente para que en el ejemplo podamos
      apreciar cómo acceder a la misma, es decir, para
      comprobar cómo las asignaciones se llevan a cabo.
    }
    property Jugadores: TArrayJugadores read FJugadores;
  end;

implementation

{ Constructor de la clase "TTeam". Nota cómo
  llamamos al método "Create" heredado de la
  clase "TObject" por la clase "TTeam".
}
constructor TTeam.CreaTeam(AIndex : Byte; Jugadores: TArrayJugadores);
begin
  inherited Create;
  FIndex := AIndex;
  FJugadores := Jugadores;
end;

Código Delphi [-]
{ --------------------------------------------------------------------- }
{ Ejemplo de uso de la clase TTeam                                      }
{ (Se supone que la clase TTeam se encuentra en la unidad UTeam.pas     }
{ y que nosotros estamos trabajando en un formulario "Form1", como      }
{ puede verse a continuación                                            }
{ --------------------------------------------------------------------- }

uses
  UTeam;

procedure TForm1.Button1Click(Sender: TObject);
var
  team: TTeam;
  jugador1, jugador2: TJugador;
  arrayJugadores: TArrayJugadores;
begin

  jugador1 := TJugador.Create;
  jugador1.Nombre := 'José Luis';

  jugador2 := TJugador.Create;
  jugador2.Nombre := 'Juan Carlos';

  arrayJugadores[0] := jugador1;
  arrayJugadores[1] := jugador2;

  team := TTeam.CreaTeam(2, arrayJugadores);
  try

    ShowMessage(team.Jugadores[0].Nombre);
    ShowMessage(team.Jugadores[1].Nombre);

  finally
    team.Free;
    jugador1.Free;
    jugador2.Free;
  end;
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita