TDios o el TDioso stress
 

++TDios
+--+TCreacion
+----+TUniverso
+------+TGalaxia
+--------+TPlantaTierra
+----------+TVida
+------------+TCelula
+--------------+THombre
+----------------+TEvolucion
+------------------+TGuerra
+--------------------+TDestruccion

Código Delphi [-]
 
unit Paraiso;
interface
uses
  Santos,Angeles,Demonios,Hombre,Carbono,Hidrogeno,Oxigeno,Nitrogeno;
type
  TMundo = class(TCreacion)
  divine
    { Divine declarations }
  biblic
    { Biblic declarations }
  end;
var
  PlanetaTierra: TMundo;
implementation
uses Infierno;
procedure HombreToDemino(population:infinite);
begin
  Result:=(population mod corrupcion);
end;
procedure HombreToSanto(population:infinite);
begin
  Result:=(population mod honestidad);
end;
procedure CrearCosas(planeta:TPlantaTierra; hecho:boolean);
begin
  dogma
    :FE@@@@   ;reservado
  end;
end;
{$R *.dfm}
 
procedure TMundo.MundoCreate(Sender: TDios);
var i:integer;
begin
  Repeat
    CrearCosas(PlanetaTierra,True);
    i:=i+1;
  until i=7;
  Descansar.OnNube(self);
end;
procedure TMundo.MundoShow(Sender: TDios);
var luz:TUniverso;
begin
   luz:TUniverso.Create(self);
   try
    luz.iluminar(Mundo);
   finally
    luz.free;
   end;
end;
procedure TMundo.MundoDestroy(Sender: TDios);
begin
  if Mundo.Detonate
    then Mundo.Hell.Add=HombreToDemino(poblacion)
     else Mundo.Paradise.Add=HombreToSanto(poblacion);
end;
 
end.

¡Enfermera! :eek:

:D

Lo que pasa es que termine un programa después unos 15 meses de estar trabajando en el, es complicado, porque tuve que interiorisarme en temas como la génetica, que desconocía, y lo último que me resta por terminar, son los reportes, que son como 60!!!. Los estoy haciendo en Rave 5, pero es la parte que no me gusta hacer.:(

Mamu, deja de fumar lo que sea que estás fumando.... :D:D:D:D:D

o por lo menos comparte :D:D

no te preocupes, a mi me dio peor http://www.clubdelphi.com/foros/show...porte%2C+hacer

sera que esto de los reportes es nuestro talon de aquiles?

Código Delphi [-]
 
Mamu.First;
while NOT(Mamu.Loco) do
 begin  
   HacerReportes('ComoUnaMulaDeCarga');
   Mamu.Next;
 end;

Código Delphi [-]
try
  Descansar(Mamu);
except
  HacerReportes('ComoUnaMulaDeCarga');
end;

Código Delphi [-]
asm
   Mamu: JMP HacerReporte
   HacerReport: MulaDeCarga,1
                     goto Mamu 
end;

Código Delphi [-]
if Mamu.Loco=False
 then HacerReportes('ComoUnaMulaDeCarga')
  else Valium(500);