String Zeichen für Zeichen nach ANSI-Codes durchsuchen? Wie?

[Luckie]

Und noch einer:

Delphi-Quellcode:

function OnlyNumbersInString(const s: String): Boolean;
var
  i: Integer;
begin
  result := TRUE;
  i := length(s);
  while i > 0 do
  begin
    if not (s[i] in [#48..#57]) then
    begin
      result := FALSE;
    end;
    dec(i);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  s := 'sdfvsa7843vskljc023dskjv3746';
  s := 'a123';
  if OnlyNumbersInString(s) then
    ShowMessage('nur Ziffer')
  else
    ShowMessage('gemischt');
end;