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 ...