Como Permitir Números, Ponto e Vírgula no Edit | Delphi

Permitindo somente números, ponto e vírgula no Edit com Delphi

Para permitir que seja inserido apenas números, ponto e vírgula no Edit com Delphi.

Basta inserir no evento OnKeyPress do Edit o código abaixo:

// Permitir somente números, ponto e vírgula.
if not (key in ['0'..'9',',','.',#8]) then
key :=#0;

Onde:

• ‘ , ‘ – Permite Inserir vírgula;
• ‘ . ‘ – Permite Inserir ponto;
• #8 – Backspace

Caso queira retirar vírgula, ponto e backspace basta remover do código.