1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

function IsNumeric(const str: String): boolean;

    var zeichen: string;
            len: integer;
              i: integer;

    begin
    len:= length(str);
    for i := 1 to len do

         Begin

         zeichen:=  AnsiMidStr(str, i, 1);


         if (zeichen= '1')
         or (zeichen ='2') or (zeichen ='3') or (zeichen ='4')
         or (zeichen ='5') or (zeichen ='6') or (zeichen ='7')
         or (zeichen ='8') or (zeichen ='9')
         then

              result:=true

         else


              result:=false;
              break;


         end;
     end;


procedure TForm1.DBEdit6Exit(Sender: TObject);

VAR
    usereingabe,ende,anfang,Len2 : String;
    Len :Integer;

begin

    usereingabe := DBEdit6.Text;
    Len := Length(DBEdit6.Text);
    Len:= Len-1;

    Ende:= AnsiRightStr(DBEdit6.Text,-1);
    Anfang:= AnsiLeftStr(DBEdit6.Text,-1);


    If Len > 0 Then

        If IsNumeric(DBEdit6.Text)
        then

            Showmessage('Achtung Eingabefehler')
            {DBEdit6.SetFocus}

        else

        end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function IsNumeric(str: String): boolean;

    var zeichen,test: string;
            len: integer;
              i: integer;

    begin

    len:= length(str);
    test:=InttoStr(Len);
    Showmessage(test);
    for i := 1 to len do

         Begin

         zeichen:=  AnsiMidStr(str, i, 1);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function IsNumeric(const str: String): boolean; 
var 
  zeichen: string; 
  len, i: integer; 
begin 
  len:= length(str); 
  for i := 1 to len do 
    Begin 
      zeichen:=  AnsiMidStr(str, i, 1); 
      if zeichen in ['1'..'9'] then 
        result:=true 
      else 
        begin
          result:=false; 
          break; 
        end; 
   end; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var
  myInt: Integer;
begin
  if TryStrToInt(Edit1.Text, myInt) or
     TryStrToInt(Copy(Edit1.Text, 0, Length(Edit1.Text) - 1), myInt) then
    ShowMessage('Gültige Hausnummer!')
  else
    ShowMessage(' KEINE gültige Hausnummer!');
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', 'a'..'z', #8]) then
    key := #0;
end;