Hacer un edit con filtro, por ejemplo, que solo acepte numeros hexadecimales.

Por Saiyine  el 0000-00-00 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 478

procedure TForm1.FiltroEdit(Sender: TObject);
var
i : integer;
aux,aux2,cad : string;
begin
        cad:='0123456789abcdefABCDEF';   // Solo se admiten estos caracteres
        aux2:='';
        with (Sender as TEdit) do
        begin
                aux:=text;
                for i:=1 to length(aux) do
                if pos(aux[i],cad)>0 then aux2:=aux2+aux[i];
                text:=aux2;
                SelStart:=length(aux2);
        end;
end;

Asigna el onchange del edit a este procedimiento y elige los caracteres que puede aceptar poniendolos en la cadena cad. En el ejemplo, como hacer un edit que solo acepte como entrada numeros en hexadecimal.

392 

Anonimo (2006-06-19 12:23:23)

1470 

Enrique Palacios (2007-09-02 06:52:18) Excelente aporte!!!! GRACIAS :D

1471 

Saiyine (2007-09-02 11:17:57) De nada hombre...