Nur zahlen im string

[Luckie]

Na dann debug deine while-Schlife doch einfach mal und guck, was er macht, wenn keine Ziffer in z steht.

@onlinekater: Stringoperationen sind immer sehr langsam. Besser:

Delphi-Quellcode:

function ExtractNumbers(s: String): String;
var
  i: Integer;
begin
  for i := 1 to length(s) do
  begin
    if s[i] in ['0'..'9'] then
      result := Result + s[i];
  end;
end;

const
  FOOBAR = 'hgt546zu3426dh4536';

begin
  Writeln(ExtractNumbers(FOOBAR));
  Readln;
end.