Borrar las letras de una cadena
 

Hola a tod@s:

La situación del dia de hoy es la siguiente:


Tengo que generar una función que me obtenga tan solo los número de una cadena ej;

Copia en el portales los siguiente "somo el equipo 1 de 5" y cuando lo pego en un Edit para mi caso, deseo borrar todo lo que es caracter es decir obtener es 15.


Agradezco de antemano la atención a la presente



gertorresm
Colombia.

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.