Dos decimales en un Edit

[RoyTan]

Hola Dec.

Seguramente tienes razón, pero lo he utilizado en algunas ocasiones y me da muchos problemas, es un componente que no entiendo muy bien, quizas sea por eso.

Gracias pero prefiero no utilizarlo, no me ha ido muy bien con el.

Gracias de todas formas.

[[cHackAll]]

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var pos: Cardinal;
begin
 with Sender as TEdit do
  begin
   pos := System.Pos(',', Text);
   if not LongBool(Pos) then Dec(Pos);
   ReadOnly := not (Key in ['0'..'9', ',', #8]) or
               (Pos <> $FFFFFFFF) and (Key = ',') or
               ((Key <> #8) and (Pos < (SelStart - 1)));
  end;
end;

[RoyTan]

Muchas Gracias chackAll.

Un codigo perfecto.

Funciona a las mil maravillas.

Gracias.

[[egostar]]

Empezado por cHackAll

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var pos: Cardinal;
begin
 with Sender as TEdit do
  begin
   pos := System.Pos(',', Text);
   if not LongBool(Pos) then Dec(Pos);
   ReadOnly := not (Key in ['0'..'9', ',', #8]) or
               (Pos <> $FFFFFFFF) and (Key = ',') or
               ((Key <> #8) and (Pos < (SelStart - 1)));
  end;
end;

Epale amigo cHackAll, probé el código y funciona muy bien, pero le he dado mas de dos repasadas y NPI que estas haciendo, , bueno algún día lo entenderé....

Salud OS

[MAXIUM]

Muchisimas gracias por vuestro código, dime como puedo modificarlo para además solo permita valores negativos es decir solo un singno '-'

Yo usaba este código:

Código Delphi [-]
If key in ['-',','] then
     case key of
          '-': if (length((sender as TEdit).Text)>0) then
               if ((pos('-',(sender as TEdit).Text)<>0) or
                  ((sender as TEdit).SelStart >0))
               and
                  ((sender as TEdit).SelLength <> length((sender as TEdit).Text))
               then key:=#0;
          ',': if ((pos(',',(sender as TEdit).Text)<>0) and
                  (pos(',',(sender as TEdit).SelText)<>0))
               xor
                  (pos(',',(sender as TEdit).Text)<>0) or
                  ((length((sender as TEdit).Text)>0) and
                  ((sender as TEdit).Text[length((sender as TEdit).Text)] = '-')) or
                  ((sender as TEdit).SelLength = length((sender as TEdit).Text)) or
                  ((sender as TEdit).SelStart = 0)
               then key:=#0;
     end
     else if not (key in ['0'..'9',#8]) then key:=#0;

[keyboy]

Empezado por cHackAll

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var pos: Cardinal;
begin
 with Sender as TEdit do
  begin
   pos := System.Pos(',', Text);
   if not LongBool(Pos) then Dec(Pos);
   ReadOnly := not (Key in ['0'..'9', ',', #8]) or
               (Pos <> $FFFFFFFF) and (Key = ',') or
               ((Key <> #8) and (Pos < (SelStart - 1)));
  end;
end;

Curioso código. Creo que podríamos agregar esta condición:

Código Delphi [-]
((Key = ',') and (Length(Text) - SelStart > 2)

Para evitar que alguien escriba 1234, mueva el cursor tres lugares hacia atrás y escriba una coma.

Bye

[[Lepe]]

Hay muchos componentes numéricos, creo debería usarse alguno, de la JVCL, RxLib, torry.net, etc.

Si usas el botón derecho y pegar, verás que no se produce el evento OnkeyPress/down, así que tendrás que validar ese texto de nuevo, o añadir un popup al edit sin elementos (para eliminar el popup de windows).

De todas formas, siempre tendrás que convertir ese texto a número; usando un componente especializado, tendrás:
edit1.AsFloat;
edit1.AsInteger;
etc.

Saludos