Dudas con LENGTH, COPY

[ramonibk]

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

copy (s,3,7) siendo S el numero de factura

y me da un error “0046D13B”



espero vuestros comentarios gracias.

[ramonibk]

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.

[ramonibk]

Pero una cosa mas.

si el cofigo de factura fuese del tipo "aaa0001/04"
como se aria para quitar /04????

[defcon1_es]

Hola,
SetLength(S, Length(S)-3); //Para eliminar los 3 últimos caracteres de la cadena.

[ramonibk]

Muchas gracias

[SEBAC_28]

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