Contar y reemplazar una cadena de numeros

[[oscarac]]

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

[darkbits]

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

[ecfisa]

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.

[darkbits]

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