FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Gracias Khronos por la recomendacion, la tomare en cuenta, con relacion a lo de completar es lo siguiente: tengo varios campos de 12 posiciones, quiero que cuando tomen un valor si no llega a doce posiciones que se completen con ceros.
gracias mil Alcides Rep.Dom. |
#2
|
||||
|
||||
Gracias Lepe,
Voy a chequear y te hago saber. Alcides Rep.Dom. |
#3
|
||||
|
||||
Te dejo las funciones:
Aunque estoy seguro que son fuertes candidatas para este post http://www.clubdelphi.com/foros/showthread.php?t=41240
__________________
Sitrico |
#4
|
|||
|
|||
También puedes usar la función Format
|
#5
|
|||
|
|||
Funcion de relleno
Mira yo he hecho esta funcion, quizás te sirva, es recursiva:
function rellenar(campo:string;con:char;longitud:byte):string; begin if longitud>length(campo) then begin campo:=concat(con,campo); rellenar:=rellenar(campo,con,longitud) end else rellenar:=campo; end; Explicacion: Campo: es la cadena a la que quieres añadir los ceros Con: Con lo que quieres rellenar, en tu caso con '0' pero puedes poner lo que quieras longitud: La longitud total de la cadena resultante. Vamos que si quiero que la cadena sea de 10 caracteres rellenando con ceros y tengo esta: '123' la función sería: rellenar('123','0',10) y te devolvería: 0000000123 |
#6
|
||||
|
||||
Hola (Cuanto tiempo sin postear...)
A mi se me ha ocurrido esta funcion:
Saludos
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin) |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Completar sentencias SQL | eldiegofg | SQL | 4 | 27-07-2007 18:01:17 |
Auto completar un campo lookUp... | Perio | Varios | 4 | 13-07-2005 14:56:40 |
Ayuda a completar una busqueda | salvanano | SQL | 10 | 20-05-2005 20:06:56 |
Auto completar un edit... | Perio | SQL | 5 | 19-05-2005 03:09:43 |
Completar palabras en un STRINGGRID | TURING | Varios | 0 | 10-07-2004 01:15:15 |
|