Validar Edit

[Thiago Delalibera 1]

Preciso verificar se em um Edit foram digitados caracteres que não são alfa, o edit só pode aceitar texto mesmo, como verificar se foram digitados outros caracteres?

 

Ou senão bloqueae que estes caracteres sejam digitados neste edit?

[Avatar 0]

No evento KeyPress, experimente isto:

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key > #47) and (Key < #58) then
	Key := #0;
end;

Isto deve resolver o problema...

[Avatar 0]

Dá pra melhorar o código...

 

if (Key in [#47..#58]) then
	Key := #0;