string auf zahlen prüfen

[braingrenade]

Moin !

so müsste es doch gehen :

Delphi-Quellcode:

function numbers(s : string) : boolean;
var
   i : Integer;
begin
result := false;
for i := 0 to length(s) do
if s[i] in ['0'..'9'] then
 begin
  result := true;
  break;
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if numbers(edit1.Text) then showmessage('Die Eingabe beinhaltet Zahlen');
end;

edit :
@ hansa : Hab deinen eintrag zu sapät gelesen !