Manejo complejo de Strings

[MaMu]

Resulta lo siguiente, tengo un String como este:

Código Delphi [-]
Str := '((@1545+@888)*@8881)';

lo que quiciera, es poder armar un StringList que contenga:

1545
888
8881

De que forma podría hacerlo?

Mi idea es hacer una función del tipo:

Código Delphi [-]
 
function ObtenerLista(Caracter:Char; Texto:String):TStringList;
 
//donde 
Caracter := '@';

Saludos y Gracias

[dec]

Hola,

Tal vez te interese echar un vistazo a las Expresiones Regulares.

[MaMu]

Solucionado.

[rgstuamigo]

oye MaMu segun las reglas del foro debes publicar tu solucion al problema que tienes, para que otros se sirvan de eso
Saludos.....

[[seoane]]

Se me ocurre algo como esto:

Código Delphi [-]
var
  i: Integer;
  Lista: TstringList;
begin
  Str := '((@1545+@888)*@8881)';
  for i:= Length(Str) downto 1 do
    if not (Str[i] in ['@','0'..'9']) then
      delete(Str,i,1);
  Lista:= TStringList.Create;
  try
    Lista.Delimiter:= '@';
    Lista.DelimitedTex:= Str;
    // Aqui ya tienes los numeros en la lista
  Lista
  finally
    Lista.Free;
  end;

[MaMu]

Empezado por rgstuamigo

oye MaMu segun las reglas del foro debes publicar tu solucion al problema que tienes, para que otros se sirvan de eso
Saludos.....

Conozco las reglas y de hecho todos mis post solucionados, los etiqueto con "Solucionado" y especifico la solución aplicada, pero en este caso, la solución al tema radica en un cambio de planeamiento por lo que la solución como tal ha sido descartada.