Eliminar un digito cualquiera..

[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.