edit soll nur zahle annehmen

[Schaedel]

Delphi-Quellcode:

const Myarray  : array[0..9] of char = ('0','1','2','3','4','5','6','7','8','9');


implementation

{$R *.DFM}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (IsKeyInArray(key)) then begin
    key := #0;
  end;
end;

function TForm1.IsKeyInArray(key: char): boolean;
var
  i :integer;
begin
  result := false;
  for i := 0 to 9 do begin
    if key = Myarray[i] then begin
      result := true;
      break;
    end
  end;
end;

Du solltest aber noch ein paar Tasten zulassen... wie z.b. Backspace und so
das überlasse ich jetzt dir...

An die anderen:
Ich weiß das ich gerade die Lösung gepostet habe....
Sicher kann er diese nun kopiere und einfügen ... bringt ihm aber in der Klassenarbeit wenig...
Ich hoffe er schreibt es nach ... und kopiert es nicht nur ...