listo, para obener los primeros numero de la cadena
cadena= '852-652-30'
p:=LastDelimiter('-',Cadena);
Cadena_Separada:=Copy(Cadena,1,p-1);
resp: 852-652
ya obtube las dos cosas q necesitaba
gracias.
__________________
Enseñar es la virtud de un sabio.
|