String parsen ?

[Daniel]

Oder mit regulären Ausdrücken.
Folgender Code zerlegt Dir Deinen String und zupft Dir die Zahlen raus:

Delphi-Quellcode:

procedure TForm33.btn_DoNowClick(Sender: TObject);
var reg : TPerlRegEx;
begin
  Memo1.Clear;

  reg:= TPerlRegEx.Create( NIL );
  TRY
     reg.Subject:= edt_SourceString.Text;
     reg.RegEx:= '([0-9])+';

     if reg.Match then
     begin
       Memo1.Lines.Add( reg.MatchedExpression );
       while reg.MatchAgain do
       begin
         Memo1.Lines.Add( reg.MatchedExpression );
       end;
     end
     else
       Memo1.Lines.Add( 'nichts gefunden' );

  FINALLY
     reg.Free;
  END;
end;

Die Klasse TPersRegEx gibt's hier:
http://www.regular-expressions.info/delphi.html