• Jueves 15 de Mayo de 2025, 03:16

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Enko

Páginas: 1 ... 40 41 [42] 43 44 ... 77
1026
Sobre los Foros de SoloCodigo / Re: Como Ponerse En Contacto Con Algun Moderador ?
« en: Sábado 22 de Abril de 2006, 21:53 »
Cita de: "joajavi"
Bueno, quizas haya hecho mal la pregunta.....La verdad es que deseo saber cuantos moderadores hay, quienes lo son, etc.
http://foros.solocodigo.com/index.php?act=Stats&CODE=leaders

1027
Delphi / Re: Llenar Un Arreglo
« en: Sábado 22 de Abril de 2006, 21:51 »
Cita de: "Perrero"
Muchas gracias, me sirvio de mucho, pero tuve que borrar la linea

Código: Text
  1. StringGrid1.Cells[ACol, ARow] := '';
  2.  

ya que sino no me dejaba escribir naa. Gracias...
que raro. lo probé y me funcionaba.  ;)

Igualmente tambien pensé en sacar esa linea y lo hice y seguia funcionando pero la deje por si acaso.

1028
Delphi / Re: Llenar Un Arreglo
« en: Sábado 22 de Abril de 2006, 17:57 »
Cita de: "Perrero"
bueno solo quiero un caracter por celda y ademas me di cuenta que no puedo introducir datos por teclado en cada celda o esuqe acaso hay una propiedad q activa eso, pero weno con las que voy probando no pasa nada.
en la propiedad Options del TStringGrid (fijate en la paleta de propiedades) pone la opcion "goEditing" en True;

Luego usa el evento SetEditTExt así:
Código: Text
  1.  
  2. procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  3.   ARow: Integer; const Value: String);
  4. var
  5.    myChar: Char;
  6. begin
  7.    StringGrid1.Cells[ACol, ARow] := '';
  8.    if Length(Value) > 0 then myChar := Value[1];
  9.    if (myChar in ['0'..'9']) then
  10.     StringGrid1.Cells[ACol, ARow] := myChar;
  11. end;
  12.  
  13.  


Al final te adjunto un proyecto de Delphi 7, que al parecer hace lo que vos quieres.

1029
Delphi / Re: Llenar Un Arreglo
« en: Sábado 22 de Abril de 2006, 15:35 »
¿Que cantidad de caracteres?

1030
C/C++ / Re: Tiene Q Aparecer Algo Mas???
« en: Sábado 22 de Abril de 2006, 01:10 »
recuerdo que al DevC++ le gustaba poner al final un
Código: Text
  1.  
  2. system("PAUSE");
  3.  
  4.  
creo que está definido en "stdlib.h"

1031
Delphi / Re: Llenar Un Arreglo
« en: Sábado 22 de Abril de 2006, 00:21 »
¿Probaste usar TStringList?  ;)
Citar
La propiedad "Cells"  del TStringList es una matriz.
TStringGrid.Cells[X,Y]: String;

Me parece un poco tedioso usar 81 TMemos cuando tenes el TStringGrid, y se ese no te resulta, seguramente podes adaptar al TDrawGrid que es más genérico.

Avisame, si necesitas si o si los Tmemo me fijo (es que ahora no tengo delphi a mano para revistar y no me acuerdo bien como es, es que hay varias formas....)

1032
Pascal / Re: Palabras Palindromes
« en: Viernes 21 de Abril de 2006, 22:49 »
Lo que a mi me resulta sin sentido, es ¿como se va hacer para leer la palabra? ¿letra por letra?  (un poco lento....) :kicking:

1033
Pascal / Re: Palabras Palindromes
« en: Viernes 21 de Abril de 2006, 21:04 »
Hola

Primero: ¿Que es una palabra palindrome?
Segundo: El tipo de datos String de Pascal es un vector y está definido como:
Código: Text
  1.  
  2.   String: packed array[1..255] of char;
  3.  
  4.  
             Como dato informativo> El elemento 0 (cero) del vector posee la longitud de la cadena, por eso String[0] te devuelve la longitud.


Por eso me surge la duda de eso de 'No usar vectores'.

Al menos que quiera que lees caracter por caracter la palabra  y usas listas enlazadas de punteros. Pero lo veo medio inutil. Antes que nada, ?Que es una palabra palindrome?

1034
Programación de Videojuegos / Re: Videojuego Colombiano
« en: Martes 18 de Abril de 2006, 16:15 »
Los gráficos se ven  completamente profesionales.  B)

Lástima que los juegos de "Dispara primero y pregunta despues" no me gustan. :lightsabre:

1035
Dudas informáticas / Re: Programar En 50 Lenguajes
« en: Lunes 17 de Abril de 2006, 02:41 »
por si tenes que programar otra vez en Windows, probá con http://www.context.cx/ , luce prometedor.

1036
Dudas informáticas / Re: Programar En 50 Lenguajes
« en: Domingo 16 de Abril de 2006, 16:16 »
http://www.context.cx/

http://www.crimsoneditor.com/

1037
Pascal / Re: Ayuda Sudoku
« en: Domingo 16 de Abril de 2006, 16:14 »
En este foro no se hacen tareas.  :angry:
Dudas puntuales?  :rolleyes:

1038
Delphi / Re: Duditas Sobre Strscan
« en: Viernes 14 de Abril de 2006, 16:26 »
"nil"  es un puntero nulo, es decir que no apunta a ninguna parte.
Como los PChar, son punteros, a veces cuando no quieres pasar un parametro, en vez de poner un 0 (cero) lo que se hace para Integers, se pasa "nil"

Y tambien para inicializar punteros. Es decir, Los integers se inicializan a 0, los punteros a nil.

Es un valor nulo, para punteros; como lo es el 0 (cero) para Numeros

1039
Delphi / Re: Duda Sobre El Tmemo Y Trichedit
« en: Jueves 13 de Abril de 2006, 00:21 »
"#" es un operador de Pascal que se usa igual como si fuera la funcion Chr().
Código: Text
  1.  
  2. Chr(0) == #0
  3.  
  4.  

1040
Delphi / Re: Enunciado Del Sudoku
« en: Miércoles 12 de Abril de 2006, 21:05 »
revisa este post: http://foros.solocodigo.com/index.php?showtopic=20620

1041
Delphi / Re: Descompilador Y Compilador Para Delphi
« en: Miércoles 12 de Abril de 2006, 15:49 »
El tema es que todos los editores hexadecimales solo muestran numeros en ese sistema.

Te conviene leer algun tutorial de "Ingeniería Inversa", eso te servirá de mucho supongo.

1042
Delphi / Re: Ayuda Con Imagenes
« en: Martes 11 de Abril de 2006, 21:20 »
Pone esto en el evento OnClick.

La cosa es que con FillRect no me funcionaba, por eso es que se pinta un rectangulo con las coordenadas (-1,-1, w+1, h+1). Con lo que el rectangulo no se ve, pero le hace un Xor a la imagen.

Fijate si averiguas como para hacerlo más prolijo :whistling:

Código: Text
  1.  
  2. procedure TForm1.Image1Click(Sender: TObject);
  3. begin
  4.   Image1.Canvas.Pen.Mode := pmXor;
  5.   Image1.Canvas.Rectangle(Rect(-1,-1, Image1.Width+1,  Image1.Height+1));
  6. end;
  7.  
  8.  

1043
Publicaciones y e-books / Re: Si Les Gusto Blueportal.org Miren Este
« en: Lunes 10 de Abril de 2006, 16:32 »
Gracias, lo voy a revisar.

 :D

1044
Pascal / Re: Alguien Sabe Como Enlazar Directx En Pascal
« en: Domingo 9 de Abril de 2006, 05:42 »
http://www.clootie.ru/delphi/download_dx92.html


Fijate en el menú de arriba que tenes las cabeceras tambien para Free Pascal y TMT Pascal. (olvidate de Turbo Pascal porque no trabaja con DLL's)

1045
Delphi / Re: Descompilador Y Compilador Para Delphi
« en: Sábado 8 de Abril de 2006, 22:27 »
NO conozco mucho del tema, mejor dicho casi nada.
Pero creo que para modificar  ejecutables compiladas, se necesita usar un Editor Hexadecimal.
 :unsure:

1046
Pascal / Re: The Life For A Ship (buscaminas)
« en: Sábado 8 de Abril de 2006, 22:25 »
Por sierto, NO TE ESTOY PASANDO CÓDIGO COMPLETO, tendrás que ADAPTARLO A TUS NECESIDADES VOS MISMO.

1047
Pascal / Re: The Life For A Ship (buscaminas)
« en: Sábado 8 de Abril de 2006, 22:21 »
El procedimiento para mezclar ya te lo había pasado.
(podrías aunque sea  tomarte la molestia de ver el código   :P  )

Para tapar con asteriscos tendrías que tener un matriz a parte que te indique si esa casilla fue abierta.
Las cosa sería que cada jugada que hagas, pongas esa casilla de la matriz a Verdadero, cosa que te indicaría si se puede mostrar y ademas si el jugador ya hizo esa jugada....
Código: Text
  1.  
  2. CasillasDescubiertas: array[1..10,1..10] of Boolean;
  3.  
  4.  

Código: Text
  1.  
  2. procedure ImprimirMar;
  3. var
  4.   i,j: Integer;
  5. for i:=1 to 10 do
  6.     for J:=1 to 10 do
  7.     begin
  8.        if CasillasDescubiertas[i,j]  then Write(Mar[i,j], ' ')
  9.        else Write('* ');
  10.        if i=10 then WriteLn;
  11.     end;
  12. end;
  13.  
  14.  

Código: Text
  1.  
  2. procedure mover;
  3. writeln('Digite el numero de fila en que desee moverse');
  4. readln(i);
  5. writeln('Digite el numero de fila en que desee moverse');
  6. readln(j);
  7. if CasillasDescubiertas[i,j] then {la jugada ya fue hecha}
  8. if not CasillasDescubiertas[i,j] then
  9. begin
  10.    CasillasDescubiertas[i,j] := True;
  11.    {y todas las demas cosas.....}
  12. end;
  13. [CODE]
  14.  
  15.  

1048
Pascal / Re: The Life For A Ship (buscaminas)
« en: Sábado 8 de Abril de 2006, 18:00 »
Cita de: "obandomarco"
para moverme puedo usar esto?

procedure mover;
writeln('Digite el numero de fila en que desee moverse');
readln(i);
writeln('Digite el numero de fila en que desee moverse');
readln(j);

recorro la matriz y debe haber algun comando que me lleve "gotoxy", este sirve?
Código: Text
  1.  
  2. case Mar[i,j] of
  3.   NADA:
  4.      begin
  5.           {lo que tengas que hacer por si est'a vacia}
  6.       end;
  7.   TIBURON:
  8.       begin
  9.           {lo que tengs que hacer si es un tiburon}
  10.        end;
  11.    BARCOS:
  12.        begin
  13.            {lo que tengas que hacer si hay un barco}
  14.         end;
  15. end;
  16.  
  17.  

para sacar el type mismatch, pone que todo sea Integer, y saca los tipos Byte (seguramente es eso, en el codigo que te pase lo hab'ia coregido y compilo)

1049
Pascal / Re: The Life For A Ship (buscaminas)
« en: Sábado 8 de Abril de 2006, 15:54 »
Cita de: "obandomarco"
ademas del procedimiento de guardar que me diste, puedo usar cualquiera??; para que el usuario busque las cordenadas cuando ya este la matriz lista que procedimiento puedo utilizar...
Lees por teclado la coordenada X, despues la Y..... Luego verificas que es lo que hay en  Mar[X,Y]  y sumas o bajas puntos segun sea el resultado.

1050
Pascal / Re: The Life For A Ship (buscaminas)
« en: Sábado 8 de Abril de 2006, 15:52 »
Código: Text
  1.  
  2. const
  3.   NADA = 0;
  4.   TIBURON = 1;
  5.   BARCO = 2;
  6. var
  7.  Mar: array[1..10,1..10] of Integer;
  8.  i,j: Integer;
  9. {Esto inicia el tablero poniendo tiburones y barcos en siempre la misma posicion,
  10. despues, con otro procedimiuento se mezcla}
  11. procedure Init;
  12. var
  13.  i,j : integer;
  14. begin
  15.   for i:=1 to 10 do
  16.      for J:=1 to 10 do
  17.          Mar[i,j] := NADA;
  18.   for i:=1 to 10 do Mar[i,1] := TIBURON;
  19.   for  i:=1 to 5 do Mar[i,2] := BARCO;
  20. end;
  21.  
  22. {Intercambia dos variables}
  23. procedure Intercambiar(var A,B: Integer);
  24. var
  25.  C: Integer;
  26. begin
  27.   C := A;
  28.   A := B;
  29.   B := C;
  30. end;
  31.  
  32. {esto mezcla los campos y los desordena, de manera que uno se asegura que
  33. hay 10 tiburones y 10 barcos}
  34. procedure Mezclar;
  35. var
  36.   i,j, nI, nJ: integer;
  37. begin
  38.    for i:=1 to 10 do
  39.      for J:=1 to 10 do
  40.      begin
  41.         nI := RAndom(10)+1;
  42.         nJ := RAndom(10)+1;
  43.         Intercambiar(Mar[i,j], Mar[nI, nJ]);
  44.      end;
  45. end;
  46.  
  47. begin
  48.    Init;
  49.    Mezclar;
  50.    for j:=1 to 10 do
  51.      for i:=1 to 10 do
  52.      begin
  53.        Write(Mar[i,j], ' ');
  54.        if i=10 then WriteLn;
  55.      end;
  56.   readln;
  57. end.
  58.  
  59.  

Páginas: 1 ... 40 41 [42] 43 44 ... 77