SoloCodigo

En el cielo se encontraba la Virgen Maria algo aburrida, entonces le dice a su padre:
- Padre, puedo ir a bailar esta noche?
- Bueno, esta bien, pero debes volver a las 9 de la noche.
- Esta bien.
Sale y a las 9 de la noche, Toc-Toc! - Quien es?
- Yo, la Virgen Maria
Al dia siguiente la Virgen reitera su pedido a su padre:
- Padre, puedo salir esta noche?
- Si, y como ayer has cumplido, te dejo hasta las 10 de la noche.
- Gracias
Y asi, a las 10 de la noche, Toc-Toc! - Quien es?
- Yo, la Virgen Maria
- Bueno, has cumplido nuevamente. Si mañana queres salir, podras
hacerlo hasta las 12 de la noche.
- Gracias!!
Y son las 12 de la noche y nada... la 1 de la mañana y nada...las 2 de
la mañana y...
Toc-Toc! - Quien es?
- Soy yo, Maria

Acá les adjunto mi codigo.

A mi me compiló y se ejecutó sin errores.

Como hacen ustedes con Turbo Pascal 7.0 para generar el ejecutable?

Desde windows xp:
  1. Abro una ventana DOS
  2. Ejecuto tpx LIFE.PAS
  3. Compilo con: Alt + F9
  4. Corro el ejecutable con: Ctrl + F9

Puede estar pasando que el compilador TP este teniendo problemas con los micros actuales debido a que fue creado en la epoca de los 486 que no se acercaban ni en sueño a la cantidad de MHZ actuales.

No se si sera de ayuda, pero por las dudas te adjunto un parche para el TP, dentro del zip vas a encontrar las instrucciones en LEAME.TXT:

INSTRUCCIONES PARA EL USO DE LA UNIDAD "NEWDELAY.TPU"

Las PCs con procesadores sumamente veloces (Ej. Pentium II), en las que se
pretende utilizar el Turbo Pascal 7.0 de Borland, en muchos casos originan un
error de ejecución "Runtime Error 200" (división por cero), debido a que el
citado soft no fué‚ actualizado en los últimos años.
Para salvar este inconveniente se pueden bajar de Internet algunos parches.

Se recomienda la utilización del siguiente, que ha sido probado y resuelve
el problema.
1) Copiar la unidad "NEWDELAY.TPU" en el subdirectorio "UNITS" del Turbo
   Pascal.
2) En todo programa que codifique:
   2.1) Coloque una cl usula "USES NewDelay, siguientes librer¡as;"
        Tenga en cuenta que "NewDelay" debe ser la primera.
        Sólo en el caso de utilizar la librer¡a Dos, coloque:
        "Uses Dos,NewDelay, siguientes librer¡as;"
   2.2) Coloque como primera instrucción del Programa Principal
        (inmediatamente despu‚s de Begin):
        PatchCrt(Crt.Delay);
   2.3) El resto, tal como es habitual.

Esto es todo.

otra posibilidad:

Puede que lo vean como un modelo físico lógico matemático, modelado a partir de un sistema de ecuaciones diferenciales, tal que si conocieran todas las condiciones iniciales podrian predecir desde cada una de las enfermedades que podriamos contraer a lo largo de nuestra vida, hasta el día de nuestra muerte...  tal vez algún día lo consigan...  

Para Perrero...

Tal vez te interesa Lazarus (http://www.lazarus.freepascal.org/), es un conjunto de clases para el compilador Free Pascal (también es software libre), que permite emular Delphi.

Otra ventaja de Free Pascal (y por extensión de Lazarus) es que escribimos el código una vez, y podemos compilarlo en casi cualquier plataforma, ya que el compilador es el mismo y tiene versiones para varios sistemas operativos.

En cuanto a la interfaz de Lazarus es muy parecida a la de Delphi, pero por el momento no tiene tantos componentes a nuestra disposición, debido a que Lazarus está en desarrollo.

Sobre la compatibilidad con Delphi, si se han utilizado los componentes estándar de Delphi posiblemente la cosa funcione. Pero si nos hemos salido de dichos componentes, el asunto se complica... al menos por ahora...

Y por último, algunas ventajas de Free Pascal: http://www.freepascal.org/advantage.html

más preguntas...

* ¿Por qué las mujeres con las curvas más aerodinámicas son las que más resistencia ofrecen?    

* ¿Por qué el muñeco de Michelin es blanco y no negro como los neumáticos? ¿Acaso son racistas los de Michelin?  

* ¿Por qué "separado" se escribe todo junto y "todo junto" se escribe separado?.

* Si la piscina es honda, el mar es toyota?.  

* ¿Hasta donde se lava la cara un calvo?  

* Si un homicidio es matar a un hombre, un suicidio es matar a un suizo?.  

Reglamento Del Club de Gordos Tramposos

1. Si usted come algo y nadie le ha visto comiéndolo,entonces no tiene
calorías.

2. Si toma una gaseosa dietética con su porción de torta, las calorías
de la torta son anuladas por  las calorías de la gaseosa light.

3. Cuando come con otras personas, las calorías no cuentan  mientras
usted no coma más de lo  que comen los demás.

4. Los alimentos usados con prósitos medicinales (combatir    baja
presión, depresión, ansiedad, aburrimiento) NUNCA suman calorías,  como
el chocolate, brandy, whisky, tortas y papas fritas Pringles.

5. Si usted hace engordar a todos los que le rodean, entonces usted se
verá más delgado.

6. Los alimentos relacionados con el cine (pochoclo,chocolate,
galletitas, maní con chocolate,pizza  y cerveza posterior) no tienen
calorías porque son parte del paquete de entretenimiento y no de tu
programa de nutrición personal.

7. El tenor graso de las galletitas de agua (15%)es falso porque a)
todo el mundo sabe que las  galletitas de agua se hacen sólo de agua,
la grasa  se derrite con el calor - el horneado debe   hacer que la
grasa se escurra  fuera de la galletita!

8. Todo lo que se lame y chupa de cuchillos y cucharas no tiene
calorías  si se está en proceso de  preparar algo. Por ejemplo,
mayonesa al preparar  sandwiches o helado al preparar copas sundae para
veinte invitados.

9. Los alimentos que tienen el mismo color, tienen la misma cantidad
de  calorías. Por ejemplo,  espinacas, manzanas verdes y helado de
pistacchio;  champignones y chocolate blanco.

NOTA: el  chocolate es un color universal,  por lo tanto substituye
cualquier otro color.

10. Cualquier cosa sacada del freezer no tiene calorías, porque todo
el  mundo sabe que las calorías son unidades de calor, no de frío.
Ejemplo:  helados de crema.

11. Las comidas consumidas mientras uno mira eventos importantes por
televisión no cuentan.

    Ejemplo: cerveza del partido, galletitas de las  novelas.

12. El mejor adelgazante es el Gatorade. En todos mis años de ir al
gimnasio, mínimo tres veces al  año, he observado que sólo la gente
delgada que hace gimnasia toma Gatorade. Por lo tanto, es obvio que
tomar  Gatorade adelgaza.

13. El probar la comida de los demás no te agrega calorías, porque
son  de ellos, no tuyas.

14. Las etiquetas de los paquetes de comida que dicen que contienen
más de una porción mienten.

TODOS los paquetes son de una porción. El balde de  helado de tres
litros, el paquete de papa  fritade 500g, la botella de  gaseosa de 2
litros sólo cuentan como una porción

 Muchas Gracias, Enko!!

Muy buena la explicación, gracias al código que escribiste ahora entiendo y de hecho he logrado cargar en un TBitmap varias imágenes, o sea las fichas de colores... por supuesto despliego la matriz de fichas teniendo en cuenta los valores numericos previamente cargados en otra matriz cuyos elementos son enteros (de tipo byte).

En el procedimiento de cargar imágenes me queda una pequeña duda  y es sobre la ruta  desde la cual se cargarán las imágenes. Recuerdo que en visual basic existe el app.path que retorna un string con la ruta en que se encuentra el programa, en Delphi existe algo parecido???

Continuando con el procedimiento de cargar imágenes, otra alternativa que encontré fue cargarlas todas en un TImageList (en lugar de utilizar un array de TBitmaps), que es una especie de arreglo dinámico de imágenes en el que a cada una se le asigna un índice, de esa forma no es necesario cargarlas de un directorio y ademas luego de compilado el programa las imágenes quedan embutidas en el ejecutable. Otra ventaja es que en el TImageList (de Lazarus) puedo cargar imagenes de varios tipos (ico, ppm, pgm, pbm, png, xpm, bmp).

Entonces, con lo anterior el procedimiento de Imprimir la matriz quedaría así:
Buenísimo el procedimiento para calcular las coordenadas de la imágen en que se hizo clic!! funciona fenomenál!!... ignoraba que se pudiese hacer algo así.

En cuanto al TDrawgrid...    al final descubrí que existe en Lazarus (más vale tarde que nunca) está en la Ficha Additional, no lo he probado aún pero imagino que habrá alguna manera quitarle la apariencia de tabla.

Saludos Amilius y Enko...

Para fijar ideas creo que lo mejor sera que explique (brevemente) lo que quiero hacer:

Se trata del juego Mastermind, como ya sabrán el objetivo es adivinar una secuencia de fichas de colores, que en este caso el programa se encargará de generar.

El problema que tengo es con la representación de las fichas, o sea elegir una estrategia para poder manipularlas de una forma no muy complicada.
Por eso lo que se me ocurrió fue una matriz de imágenes de esta forma:

Primeramente coloco en el formulario varios TImage, más precisamente 12 filas x 5 columnas. Esto tiene como ventaja, que de ser necesario puedo utilizar la propiedad de dobleClick sobre la TImage, para por ejemplo borrar una ficha de color, para poder cambiarla por otra.

Luego declaro un array:

mat:array[0..11,0..4] of TImage;

La desventaja que le encuentro a esto es que tendría que cargar la matriz manualmente, o sea:

mat[0,0]:=Image1;
mat[0,1]:=Image2;
mat[0,2]:=Image3;
...

Bueno, suponiendo que haya alguna mejor manera de hacer lo anterior, lo
que faltaría es cargar los archivos de imágen en la matriz mat y eso lo
encuentro bastante sencillo, utilizando un ImageList (Seguramente en Delphi
también existe, no lo se).

Entonces, una vez cargado el ImageList con las imágenes de las fichas, habría que hacer:

ImageList1.Draw(mat[fil,col].Canvas,1,1,indice_imagen);

donde fil y col, son las coordenadas (fila y columna) donde se quiere asignar
la ficha (imágen) cuyo indice en el imageList es indice_imagen.


Ahora paso a responder sobre las alternativas que me han dado:



Para Amilius:

Por lo que he visto, te puedo decir que en Lazarus existe tanto el TBitmap como el TPaintbox, sin embargo el TBItmap no soporta algunos métodos de Delphi, basicamente los relacionados con las Apis de windows, como por ejemplo el método ScanLine que según parece requiere la GDI32.dll. De todas formas no creo que el ScanLine sea necesario en este caso, por si te interesa en este link hay más información:

http://wiki.lazarus.freepascal.org/index.p...g_with_Graphics

Volviendo al TBitmap que me sugieres, no me queda muy claro la forma de utilizarlo. En lugar de utilizar una matriz de TImages me sugieres utilizar una matriz de Tbitmaps?

esto es:

mat:array[0..11,0..4] of TBitmap;

luego creo cada celda de la matriz:

mat[fil,col]:=TBitmap.create;

Luego me dices que coloque un Tpaintbox en el formulario y en la propiedad OnPaint pinte los bitmas en la posición que quiera (¿?), esto último no tengo idea de como hay que hacerlo. Además no entiendo como con un solo Tpaintbox puedo mostrar todas las imágenes bmp.


Para Enko:

Sobre el TDrawGrid, al menos con ese nombre no parece estar en Lazarus. Lo más perecido parece ser TDbGrid que está en la ficha Data Controls y tengo mis dudas de que sea lo mismo porque cuando coloco ese componente en el formulario queda algo parecido a una tabla en excel.

Hola a todos...

Necesito mostrar varias imágenes en un formulario, por ejemplo:

    [imagen01.bmp]  [imagen02.bmp]  [imagen03.bmp]  [imagen04.bmp]

    [imagen05.bmp]  [imagen06.bmp]  [imagen07.bmp]  [imagen08.bmp]

    [imagen09.bmp]  [imagen10.bmp]  [imagen11.bmp]  [imagen12.bmp]

quisiera saber (en caso de que sea posible) como se puede hacer utilizando una matriz de imágenes (array de 2 dimensiones) en tiempo de ejecución.

Intenté con algo como esto:

myArray: array[0..2,0..3] of TImage;

... pero si bien funciona, no se como hacer para mostrar las imágenes en el formulario con los TImage.

Salu2...
   Danielo.

PD: Estoy utilizando el Lazarus, por si a alguien le interesa hace unos días apareció una nueva versión: la 0.9.12  

Buena traducción micropais  

y si, por el momento es muy poco lo que se encuentra sobre Lazarus (sobre todo en castellano), yo me estoy guiando por algún que otro manual de delphi de los que se encuentran en internet.

En este link: http://www.q3.nu/trucomania/ se puede descargar un programa (en castellano) que contiene un manual muy bueno y tambien unos cuantos trucos de delphi, no se si será 100% compatible con lazarus, pero algo es algo.

También adjunto un manual de freepascal (posiblemente el único en castellano  

http://idd003pv.eresmas.net/fp/fpc_manual_es.zip

fue escrito en el 2001, pero se adapta bastante bien al freepascal 2.0.2, al menos a mi me ha resultado bastante útil para familiarizarme con la sintaxis de freepascal.

Salu2...
    Danielo.

Ups!... el codigo está aquí.