Delphi 10 - TEdit - Aceitar apenas números e decimais

Delphi 10 - TEdit - Aceitar apenas números e decimais

Código:


procedure TFrmJC.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9','.',',',#8,#13]) then
    key := #0;
  if key in [',','.'] then
    key := FormatSettings.DecimalSeparator;
  if key = FormatSettings.DecimalSeparator then
  if pos(key,TEdit(Sender).Text) <> 0 then
    key := #0;
end;


Código:


if not(key in ['0'..'9','.',',',#8,#13]) then
   key := #0;


Código:


if key in [',','.'] then
    key := FormatSettings.DecimalSeparator;
    if key = FormatSettings.DecimalSeparator then
       if pos(key,TEdit(Sender).Text) <> 0 then
       key := #0;