verificar se é numérico

Se vc quer configurar o Edit p/ aceitar apenas nº então vai:

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

obrigado :o :D

esse cod funciona bem até certo ponto, mais tem duas coisinhas qeu queria q arrumaes..

no meu script eu tenho um shape, e quero q o valro editado nesse Edit seja a altura do shape

tá certo.

então no edit vc digita 7, a altura continua a mesma, e só depois de digitar + um 1, como pro exmeplo, deixar 71, a altura muda pra7.. e só deposi de digitar + umnúmero, como pro exemplo, 715, a altura muda pra 71.

como arrumo isso?


outra coisa, se vc der backspace até nào sobrar + nenhum número no edit, e der depois + uma vez dá erro e fecha o projeto.

como arrumo isso?

o cod:

procedure TForm1.alturaKeyPress(Sender: TObject; var Key: Char);
begin
if (Key in[ ´0´..´9´, Chr(8)]) then
Shape1.Height := strtoint(altura.text);

end;