Alguien me puede echar una mano, Necesito un edit que entre con un String y luego pueda trabajar con Integer.

Discupa pero soy un poco novato, el edit cree una clase con type, para entrar con string, ¿pero ahora no me deja trabajar con números como puedo sobrecargar un Edit?

Respuesta

Considero que no es necesario sobrecargar, puedes colocar lo siguiente en un botón para que pruebes el funcionamiento:

procedure TForm1.Button2Click(Sender: TObject);
  var entero : integer;
         cadena : string;
begin
  try
    entero:=StrToInt(Trim(Edit1.Text));
    ShowMessage('Ingresó el número: '+IntToStr(entero));
  except on Error : EConvertError Do
    begin
      cadena:=Trim(Edit1.Text);
      ShowMessage('Ingresó el caracter: '+cadena);
    end;
  end;
end;

¡Gracias! El Edit da un fallo pero mirare haber si puedo arreglarme con esto, muy agradecido . un saludo y buenas noches aquí en Asturias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas