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;
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).