FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Dudas con LENGTH, COPY
Debido a mi poca base de cuando en cuando me encuentro con problemas que seguramente son muy tontos.
El caso es que estoy generando un programa de facturación y al principio el Numero de factura lo estaba poniendo en numérico y todo iba sobre ruedas, Lo malo a sido cuando he querido ponerlo en alfanumérico, El tipo de código que uno es AAA0001 y estoy teniendo problemas para quitar las letras en principio lo he intentado con Código:
copy (s,3,7) y me da un error “0046D13B” espero vuestros comentarios gracias. |
#2
|
|||
|
|||
Parece ser que el problema es como tenia montado todo el sistema
y cuando lo he buelto a montar parece que ya esta. detodas maneras gracias a todos. |
#3
|
|||
|
|||
Pero una cosa mas.
si el cofigo de factura fuese del tipo "aaa0001/04" como se aria para quitar /04???? |
#4
|
||||
|
||||
Hola,
SetLength(S, Length(S)-3); //Para eliminar los 3 últimos caracteres de la cadena.
__________________
Progress Openedge https://abevoelker.com/progress_open...dered_harmful/ Delphi forever... |
#5
|
|||
|
|||
Muchas gracias
|
#6
|
|||
|
|||
mira yo lo hice asi es otra opcion
var codigo: string; pos: integer; begin codigo:= form1.Edit1.Text; pos:= ansipos('/',codigo); delete(codigo,pos,length(codigo)); form1.Edit1.Text:= codigo; end; a ver que te parece.... Saludos Sebastian |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|