Ayuda formatfloat para un TEDIT
 

Hola a todos quisiera saber como puedo hacer para para formatear un TEdit para que solo pueda escribir en el con decimales asi por ejemplo 58.50 - 4.50 - 1,200.50 y si ingreso 1,200.58998 o 58.507864 me diga que debe de ingresar la cantidad adecuada.. gracias

respuesta
 

hay un componente que se llama NumEdit, el cual te adjunto hay uno que sirve para cantidades enteras, y otro para cantidades con decimales, espero te sirvan y espero no violar las reglas del foro al pasar el componente.

Hola lo que necesitaba era hacerlo con un TEdit queria saber como se puede hacer es para un trabajo en la universidad no queria un componente que me lo haga todo..
de todas maneras gracias

a ver si me ayudan en como puedo hacer este codigo para que el tedit haga lo que dije

:(

en parte te puede servir esto...

Código Delphi [-]
If Key = #13 Then vDes.SetFocus;
If Key='.' Then Key:=',';
If Pos(',',vCtd.Text)=0 Then
        If not (Key in ['0'..'9',',',#8]) Then Key:=#0
          else Exit
  else
       If not (Key in ['0'..'9',#8]) Then Key:=#0;

hay que ponerlo en el evento onKeyPress del Edit

Salu2:p:D

Hola Rofocale.

Según entiendo la consigna es, que permitas ingresar números, el separador coma para miles y
el punto para decimales. Limitandodose estos últimos al número de dos.

Te pongo un código que no intenta ser un analizador de expresiones. Es sólo para aproximarte una
idea, las demás comprobaciónes las podés implementar.
No comprueba si ingresas dos puntos o cinco comas. Sólo verifica que no pongas un punto o coma
al iniciar, y tál como te piden, admite sólo dos decimales luego del primer separador decimal.

Código Delphi [-]
procedure TForm1.EditKeyPress(Sender: TObject; var Key: char);
var
  NDec: integer;
begin
  NDec:= 0;
  with Sender as TEdit do
  begin
    if (Pos('.', Text+Key) > 1) then  // Text+Key: necesario por que todavía Key no esta en Text
      NDec := Length(Text+Key) - Pos('.',Text+Key);
    if (Key in ['.',',']) and (Length(Text+Key) = 1) then
      NDec:= 3;  // no '.' o ',' al inicio
    if (not (Key in[',','.','-','0'..'9']) or (NDec > 2)) and (Key<>#8) then
    begin
      Key:= #0;
      MessageBeep(MB_ICONERROR);
      SetFocus;
    end;
  end
end;

Saludos. :)