Ver Mensaje Individual
  #2  
Antiguo 06-08-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola GerTorresM.

Código Delphi [-]
function SoloNumeros(Cad: string): string;
var
  i: Integer;
begin
  Result:='';
  for i:= 1 to Length(Cad) do
    if Cad[i] in ['0'..'9'] then
      Result:= Result + Cad[i];
end;

Uso:
Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit1.Text:= SoloNumeros(Edit1.Text)
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 06-08-2011 a las 02:01:59.
Responder Con Cita