Sacar números de cadenas de caracteres.

[Estifmauin]

Otro enfoque, más legible, pero creo que menos eficiente:

Código Delphi [-]
function SoloNumeros(s:string):string;
var
  n :integer;
begin
  result:='';
  n:=1;
  while (n <= Length(s))
  and (s[n] in ['0'..'9']) do begin
    result:=result+s[n];
    Inc(n);
  end;
end;

function ExtraerNumeros(cadena, prefijo :string) :TStrings;
var
  i :integer;
begin
  result:=TStringList.Create;
  result.CommaText:=StringReplace(cadena,prefijo,',',[rfReplaceAll]);
  for i:=result.Count -1 downto 0 do begin
    result[i]:=SoloNumeros(result[i]);
    if result[i] = '' then result.Delete(i);
  end;
end;

Para llamarlo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Lines:=ExtraerNumeros('HGL44DHS274HGL23JHGL41234HGL412YGHGL555XADSF1AHG12HGL999','HGL');
end;

Es más legible, pero insisto en que menos eficiente, y requiere uses StrUtils

[McK]

Perfecto, gracias a todos. Aunque no haya una instrucción de Delphi eso está bastante simplificado. Yo lo tenía algo peor implementado.

Un saludo!

[roman]

Desafortunadamente delphi no cuenta con un manejo de expresiones regulares, al menos delphi 7. Por ejemplo, en PHP este problema se resuelve así:

Código PHP:

<?php
$s = 'DHS274HGL23JH41234HGL412YG';
preg_match_all('/HGL([0-9]+)/', $s, $matches);
var_dump($matches[1]);
?>

// Saludos

[mamcx]

Empezado por roman

Desafortunadamente delphi no cuenta con un manejo de expresiones regulares

En la version actual si. Ademas que agregarle la libreria es cosa de niños.

[roman]

Empezado por mamcx

En la version actual si. Ademas que agregarle la libreria es cosa de niños.

Entonces, en la versión actual, definitivamente se impone el uso de expresiones regulares para resolver problemas como éste

También tienes razón en que puede usarse una librería (biblioteca por si Al lee esto) externa, pero cuando se requiere para apenas un uso puntual, como que se siente que se está matando una pulga a cañonazos

// Saludos

[Delfino]

Empezado por roman

Desafortunadamente delphi no cuenta con un manejo de expresiones regulares, al menos delphi 7.

Ya lo tiene en Delphi XE, y aqui un ejemplo..