Ok, ist vielleicht nicht gerade die schnellste Möglichkeit, aber sie funktioniert einigermaßen...
Delphi-Quellcode:
function ExtractInt(s: string): Integer;
var
i, x: Integer;
begin
i := 0;
for x := 1 to Length(s) do
if s[x] in ['0'..'9'] then
i := (i * 10) + StrToInt(s[x]);
Result := i;
end;
[edit]Verschreiber korrigiert!
[/edit]