TDios o el TDioso stress

[MaMu]

++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.

[[Al González]]

¡Enfermera!

[MaMu]

Empezado por Al González

¡Enfermera!

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.

[Neftali [Germán.Estévez]]

Empezado por mamu

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

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

[[eduarcol]]

Empezado por Neftali

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

o por lo menos comparte

[[eduarcol]]

Empezado por mamu

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.

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?

[MaMu]

Empezado por Neftali

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

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