Hagamos entre todos un programa (No Novatos)

[donald shimoda]

Empezado por Neftali

Además, como ya he dicho, el código fuente está disponible, así que puedes ampliarlo segun tus necesidades. ¡¡Qué mas se puede pedir!!

Estando en Delphi, nada más.

[[Caral]]

Hola
Dale hombre, desvirtúa el hilo, que asi se han llegado a cosas muy interesantes, ademas no os olvidéis que estamos en la taberna.

Código Delphi [-]
If Caral.Hilo = Desvirtuado.donald shimoda  then
ShowMessage(' donald shimoda  paga la siguiente ronda ');

Saludos

[[coso]]

Código Delphi [-]
function Maquina_canyas(num : integer; can : float; cl : TColor) : array of TCanyas;
var
       curr_camarero : integer;
       canyas : array of TCanyas;
begin
         curr_camarero := 0;
         SetLength(canyas,num);

         while (curr_camarero < num) then
         begin
                 canyas[curr_camarero].cantidad := can + random(10) - random(5);
                 canyas[curr_camarero].Tipo := cl;                
                 inc(curr_camarero);
         end;
         Maquina_canyas := canyas;
end;

esto es para la taberna, no se yo si incluirlo en el programa

PD : de verdad se pierde un poco el 'oremus' por aqui eh?
PDD : edito, que me dio un error de compilacion.

[[Al González]]

Les mando saludos desde Chihuahua.

[[poliburro]]

yo propongo que se proteja el código de la siguiente manera:

Código Delphi [-]
 
Try
  . ...
Except
  On Error: Exception Do 
    showMessage('Ha ocurrido un error grave, por favor envie un par de cervezas a los desarrolladores y en breve nos pondremos en contacto');
 
End;

[sakuragi]

s

Empezado por poliburro

yo propongo que se proteja el código de la siguiente manera:

Código Delphi [-] Try . ... Except On Error: Exception Do showMessage('Ha ocurrido un error grave, por favor envie un par de cervezas a los desarrolladores y en breve nos pondremos en contacto'); End;

poli, ese si es un buen siguimiento de errores.

salud