Ver Mensaje Individual
  #1  
Antiguo 11-02-2010
ioco ioco is offline
Miembro
 
Registrado: ene 2010
Posts: 42
Reputación: 0
ioco Va por buen camino
¿Está bien escrita la unit?

Buenas, tengo lo siguiente:

Código Delphi [-]
unit unidades;

interface
Type
  Unidad = record
    Vida,Escudo,Disparos,Potencia,ConsumoElectrico,CosteMetal,CosteCristal,CosteDeuterio:integer;
  end;

Var
  Caza,Acorazado,Destroyer,Crucero,Pulsar,Bombardero:Unidad;
  Sonda,RecicladorPeque,RecicladorGrande,TransportePeque,Cisterna:Unidad;
  BateriaAntiaerea,RayoLaser,Gauss,ArtilleriaIntervalo,EmisorTaquiones:Unidad;

Procedure AsignarNavesOffTerran(OUT Caza,Acorazado:Unidad);

implementation

Procedure AsignarNavesOffTerran(OUT Caza,Acorazado:Unidad);
  Begin
    Caza.Vida:=70;
    Caza.Escudo:=0;
    Caza.Disparos:=5;
    Caza.Potencia:=18;
    Caza.ConsumoElectrico:=1;
    Caza.CosteMetal:=275;
    Caza.CosteCristal:=230;
    Caza.CosteDeuterio:=140;
    Acorazado.Vida:=595;
    Acorazado.Escudo:=5;
    Acorazado.Disparos:=40;
    Acorazado.Potencia:=22;
    Acorazado.ConsumoElectrico:=19;
    Acorazado.CosteMetal:=2225;
    Acorazado.CosteCristal:=1940;
    Acorazado.CosteDeuterio:=1535;
    {Y siguen las asignaciones para cada variable declarada y muchas más 
       que faltan por declarar y que no pongo ya que son lo mismo}
  end;

end.
Tengo un par de dudas al respecto:

1- ¿Creeis que está bien declarado y/o estructurado para poder usar estos datos que asigno desde un form? (estoy empezando con esto de las units y es por confirmar si he entendido mas o menos su estructura.)
2- ¿Ralentizaría mucho al programa hacer entre 100 y 200 asignaciones de este tipo al arrancar el formulario?

PD: Esto de ejecutarlo en el arranque aún tengo que averiguar si se puede hacer, pero antes de molestaros preguntando cómo hacerlo prefiero dedicarle 1 o 2 días de búsqueda jeje).

Última edición por ioco fecha: 11-02-2010 a las 18:56:26. Razón: Corregir unas faltas de ortografía que se colaron :P
Responder Con Cita