Hallo skaven,
wenn Du häufiger mit Strings arbeiten solltest, könnten sich
reguläre Ausdrücke als hilfreich erweisen. Mit ihnen könnte eine Lösung zum Beispiel so aussehen:
Delphi-Quellcode:
with RegExpr('~(\d+)') do
if Execeute(AString) then
repeat
ShowMessage(Match[1]);
until not ExecuteNext;