• Viernes 29 de Marzo de 2024, 02:54

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 - lopman

Páginas: [1]
1
Delphi / Re: Problema Con Impresora De Tickets
« en: Viernes 25 de Noviembre de 2005, 00:51 »
Siento no poder ayudarte, pero no quería dejar pasar la ocasión de felicitarte, pues es el mejor post de petición de ayuda que he visto en este foro desde que lo frecuento, sigues absolutamente todas las indicaciones proporcionadas por SoloCodigo.... ojala sirvas de ejemplo y dejen de postear pidiendo soluciones óptimas a problemas a los que ni siquiera se les ha intentado dar solución.

2
Delphi / Re: Ayuda Con Los Arrays
« en: Martes 18 de Octubre de 2005, 23:46 »
No olvidemos que el tamaño de un array se puede establecer dinámicamente

myArray: Array of "lo q sea";

SetLength(myArray, tamaño);

myArray[tamaño-1] := valor;

Hay que recordar que los array empiezan a almacenar los elementos desde el 0, al igual que pasa en C. Por eso el rellenar el ultimo elemento como "tamaño-1".

Cuando quieras recuperar el elemento i-esimo, simplemente tendrás que escribir myArray, y recordando una vez mas que el primer elemento no es myArray[1], si no myArray[0].


Espero haberte sido de ayuda.
Suerte!!!

3
Trucos / Re: Colocar El Separador Decimal
« en: Lunes 22 de Agosto de 2005, 13:50 »
Como ampliación al práctico truco obsequio de Ayla, podemos terminar de convertir el TEdit en un campo numérico únicamente. Con lo cual ampliariamos su función del siguiente modo:
Código: Text
  1.  
  2. function TFormPatrones.fSepDecimal(tecla: char) : char;
  3. var
  4.   res: char;
  5. begin
  6.  res := tecla;
  7.  if DECIMALSEPARATOR = ',' then begin
  8.     if tecla = '.' then res:= ','
  9.     else res := tecla;
  10.  end
  11.  else begin
  12.     if tecla = ',' then res:= '.'
  13.     else res := tecla;
  14.  end;
  15.  if not (res in ['0'..'9',DECIMALSEPARATOR,#8]) then
  16.     res := #0;
  17.  Result := res;
  18. end;
  19.  
  20.  

De esta forma tan solo nos dejará escribir números, separadores, desplazarnos por el TEdit y borrar elementos.

4
Trucos / Re: Colocar El Separador Decimal
« en: Jueves 18 de Agosto de 2005, 14:46 »
Sencillo pero eficaz, gracias por el truco, me ha venido muy bien.

5
Delphi / Re: Crear Una Seccion De Ejemplos Y Trucos
« en: Lunes 14 de Febrero de 2005, 19:27 »
Bueno, ya aparecí en el foro hace tiempo realizando una preguntita y escribo ahora para dar mi apoyo a esta propuesta y anunciar que esta vez espero quedarme y ser asiduo del foro de delphi.

6
Delphi / Re: Clase Lista Y Clase Pila En Delphi
« en: Sábado 20 de Noviembre de 2004, 11:04 »
Vale, muchas gracias.  :kicking:

7
Delphi / Clase Lista Y Clase Pila En Delphi
« en: Viernes 19 de Noviembre de 2004, 10:49 »
Hola, llevo varios dias recorriendome páginas y páginas de internet en busca de algo que en teoría es relativamente sencillo pero que soy incapaz de encontrar la respuesta. Simplemente quiero saber si Borland Delphi 7 dispone de clases tan útiles y tan utilizadas como las Pilas y las Listas, y de ser así donde se encuentran.
He estado igualmente mirando y buscando en este foro, pero tampoco he encontrado respuesta, cosa que me extraña bastante porque a priori parece una de las primeras preguntas que surgen a la hora de iniciarse en delphi.
Muchas gracias de antemano.

Páginas: [1]