Eliminar un digito cualquiera..

[luisito2011]

Hola.. bueno tengo un problema.. que no puedo resolver...
.. Eliminar un digito.. cualquiera.. de un numero..
ejemplo... el usuario ingresa un numero 7895.. y quiere eliminar el 2.. digito
entonces quedaria asi 795...... oh .. eliminar el 3 .. digito.. 785

bueno.. la respuesta la quisiera en consola application(Delphi)..
graciaj.. esto de programacion I.. me cuesta un poco..

[ecfisa]

Hola luisito2011 y bienvenido al Club Delphi.

Te aconsejo que leas la guia de estilo ( unas pocas normas básicas para entendernos mejor )

Si el dato está en una cadena de caracteres (string) podés valerte del procedimiento Delete.

Ejemplo:

Código Delphi [-]
...
function EliminarDigito(Cad: string; Posic: Integer): string;
begin
  Delete(Cad, Posic, 1);
  EliminarDigito:= Cad;
end;

var
  s: string;
begin
  { directo con Delete }
  s:= '1202';
  Delete(s,3,2); 
  Writeln(s);  { resultado: 12 }

  { usando la función declarada arriba }
  Writeln(EliminarDigito('7895', 1)); { resultado: 795 }

  Readln;
end.

Nota: Borré la alusión a tu correo electrónico por que además de que no corresponden las respuestas privadas (ya que no ayudan al resto de los foristas), publicar tu email te va a llenar de spam.

Un saludo.

[[gatosoft]]

bueno, te iba a contestar pero veo que ecfisa me ganó... además de ir a la guia de estilo te recomiendo también (para la próxima) nos presentes el trabajo que hayas hecho para corregirte sobre eso, ya que frases como:

bueno.. la respuesta la quisiera en consola application(Delphi)..

dan a entender que quisieras que te hicieramos la tarea... y no que te ayudaramos con:

un problema.. que no puedo resolver...

un saludo y bienvenido

[[Al González]]

Fuera del tema. Cada vez que leo la palabra consola, me viene a la mente una imagen como esta: http://images02.olx.com.mx/ui/7/51/3...1284595348.jpg

¿Estaré desactualizado?