Czemu to nie działa ??

Czemu to mi nie działa dla Edita:

if not Key in '0'..'9' then key := '';

Jak wpisuje w OnChange to wywala:
"[Error] Unit1.pas(29): Undeclared identifier: 'Key'"
A jak wpisuje w OnKeyPress to:
"[Error] Unit1.pas(28): Operator not applicable to this operand type"
Albo jak wpisuje w OnKeyDown:
"[Error] Unit1.pas(30): Operator not applicable to this operand type"

Co jest nie tak?
Pomóżcie jak możecie :)
Pozdrio all {hello}

wsadz ten kod do wątku on key down!!!!!!!!!!!!!!!!!

aha sorry - juz npisales ze tam występuję błąd := key:= nie wolno!!!!!

Adrian16/ napisał:
Czemu to mi nie działa dla Edita:
&gt
&gtif not Key in '0'..'9' then key := '';
&gt
&gtJak wpisuje w OnChange to wywala:
&gt"[Error] Unit1.pas(29): Undeclared identifier: 'Key'"
&gtA jak wpisuje w OnKeyPress to:
&gt"[Error] Unit1.pas(28): Operator not applicable to this operand type"
&gtAlbo jak wpisuje w OnKeyDown:
&gt"[Error] Unit1.pas(30): Operator not applicable to this operand type"
&gt
&gtCo jest nie tak?
&gtPomóżcie jak możecie :)
&gtPozdrio all {hello}

Tak mi zadziałało:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if not Key in [0..9] then key := 0;
end;

piechnat

a jezeli tobie nie działo to spróbuj

if not [0..9] in Key then key := 0; //moze bedzie działało :P

Najlepiej to powinno być :

if Key in ['1'..'9'] then ... else ....

Tak ma byc:
if not (Key in ['0'..'9']) then key := #0;

3 bledy byly!--Pawel {Delphi6 }

Po pierwsze: F1