Contar y reemplazar una cadena de numeros
 

un saludo al club

por favor si pueden ayudarme tengo una cadena de numeros 011591727288 y quiero cambiar el 011 x 00 para que la cadena quede 00591727288 parece que tengo que contar la cadena y eliminar las 3 primeros caracteres>011 y agregar los 2 caracteres>00 para que quede 00591727288
como se hace esto en delphi? por es la primera vez que me encuentro con contar y reemplazar si pueden darme una mano.

muchisimas gracias.

es esta pagina de delphi al Limite hay muchas cosas que te pueden ayudar

http://delphiallimite.blogspot.com/2...e-texto-i.html

o tambien podrias hacer asi

Código Delphi [-]
// Cadena := 011591727288; 
cadena :=  '00' + Copy (Cadena,4, lenght(Cadena))

espero te sirva

me da error

Código Delphi [-]
var cadena :string;
begin
cadena:='01159144559423';
cadena :=  '00' + Copy (cadena,4, lenght(cadena))
end;

FuncionO!
 

Corregido y funciona!

Código Delphi [-]
cadena:='01159144559423';
cadena :='00'+Copy(cadena,4,length(cadena));
edit2.text:=cadena;

Es un poco más corta la expresión:

Código Delphi [-]
Copy (Cadena, 4, MaxInt)

como puedo ver que el primer caracter es 0 or 1 de una cadena de numero?
ejemplo :
17075625
1752555
0115917278
0115917265

lo que quiero es ver si es 1 aumentar 00 si es 0 cambiar por 011
como puedo contar y ver q es el primer caracter y claro luego lo aplico un IF

gracias.

para ver el primer caracter puedes hacer asi

Código Delphi [-]
PrimerCaracter: = Copy (Cadena, 1, 1);
if PrimerCaracter = '1' then
   Cadena := '00' + Cadena
Else
   Cadena := '011' + Cadena;

este ejemplo simplemente "aumenta"...
es lo que te he entendido... si no es asi.. replantea mejor tu pregunta

saludos

todas las respuestas fueron de Primera
muchas gracias , mi problem fue solucionado.

Hola.

Anque un poco tarde, otra forma de reemplazar '001' por '00' es:

Código Delphi [-]
  Delete(cadena, 1, 3);
  cadena:= '00' + cadena;

Un saludo.

me gusto la ultima respuesta en 2 lineas resolvio todo gracias.!!!