buenas, soy nuevo aqui y haber q tal esta solucion
Código Delphi
[-]
i:=0;
longitud:=lenght(variablestring);
repeat
i:=i+1;
if variablestring[i]<>'-' then nuevastring[i]:=nuevastring[i]+variablestring[i]
else salida:=false;
until salida;
si hay algun error de codigo perdoneme