TEdit Float

[Temurdounojo]

Pues tengo un TEdit, donde meten importes, tipo 1256,69 por ejemplo, el caso esque me estan metiendo 1256,69E para indicar que son euros, y no quiero que lo metan, y por mucho que lo digo lo siguen metiendo, el caso esque yo tengo la comprobación:

Código Delphi [-]
procedure TwPrincipal.PImporte_tarjExit(Sender: TObject);
begin
  try
    strtoFloat(trim(PImporte_tarj.text));
  except
    ShowMessage('Tiene que insertar un Importe (ejemplo 356,69)');
    PImporte_tarj.setfocus;
  end;
end;

y Me coje como si fuera un exponencial todos los numeros con E

ej:
59,7E
59,7E5
59,7E33

¿Como puedo hacer para que no lo hagan?

Se podría hacer con un onkeypress, pero ¿hay alguna forma mejor?

[elcolo83]

Hola,
Lo que podrias hacer es que en el evento OnkeyPress de TEdit seria agregar algo asi

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(Key)>31 then
  with TEdit(sender) do
    case key of
      '0'..'9': key:= key;
      ',': if pos(',',Text)>0 then Key:= #0;
      else key:= #0;
    end;
end;

Con eso solo podra ingresar numeron y una sola ',' (coma)

[Temurdounojo]

Gracias, ha funcionado perfectamente.