HACER UN EDIT CON FILTRO, POR EJEMPLO, QUE SOLO ACEPTE NUMEROS HEXADECIMALES. - .: .: Saiyine :. :.

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

Por Saiyine Enviar correo 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.

Otras entradas de la web que podrian interesarte:

Sin gravatar 392
Banderita Anonimo (2006-06-19 12:23:23)

:) :) :) :) :D :x :x :x :x

Gravatar 1470
Banderita Enrique Palacios (2007-09-02 06:52:18)

Excelente aporte!!!!
GRACIAS :D

Gravatar 1471
Banderita Saiyine (2007-09-02 11:17:57)

De nada hombre... :OO

Sin gravatar 3822
Banderita Anonimo (2009-10-02 12:17:28)

FEOSSSSSSSSS :roll:

Gravatar 3925
Banderita ojete (2009-10-29 03:08:59)

xD :OO :noworry: :roll: :x me latio la informacion monce gratcce!!!!¡¡

Gravatar 5187
Banderita Pastor Luis Cordero (2011-03-27 06:59:28)

Excelente.. Anillo al dedo

o o o o 


Tu nombre (Nick):

Tu correo (Email):
  Necesario para tu gravatar!

Tu página (URL):

Escribe aqui tu comentario:

       :noworry: :roll: :huh: :push: :OO 8) 8O :( :) :? :D :P :o :x :| ;) ^^ xD



Vista previa activada.

Vista previa (6/6/6, 6:66)


Fondos de pantalla

. . .

Descargas

  • ApagaPC
    apagapc241.exe  (4488)
  • LimpiaDocus
    LimpiaDocus001.exe  (3792)
  • RCM
    rcm001.zip  (3200)
  • Popmail
    popmail-0.4-psmn.tar.gz  (3272)
  • Manual de Delphi en PDF
    delphi_pdf.zip  (3904)
  • Evangelio del Perl
    Evangelio_del_perl.pdf  (3983)
  • Excel Simpsons
    Excel Simpsons  (3914)
  • . . .

    Proyectos Online

  • Saiyine Store
  • Kunowalls!!!
  • Fondos de pantalla
  • Picaday: imagenes sexys o chocantes.
  • Scarlett: fotos de Scarlett Johansson
  • WhatsmyIP: obtener tu IP pública
  • Uma Thurman: galeria de Uma Thurman
  • FunPics: imagenes graciosas
  • . . .

    Blogs

  • Por lo que más querais, no entreis a estos: Tapanez, Yhandros, Onez.

  • Otros en español: El Mundo Today, La libreta de Van Gaal, Chavalina, Kirai, Mundo Geek, Microsiervos.

  • Mis lecturas en guiri: Michael Yon, Coding Horror, YCombinator news, MySQL Performance, Slashdot.

    . . .
  • Utilidades

  •  Coral  (1645), cacheando webs
  •  Spam.la  (1983), correo de usar y tirar
  •  Mailinator  (1887), correo de usar y tirar
  •  Bug me not  (1635), absurdos registros di NO
  •  Trashmail  (1692), correo de usar y tirar

    . . .

  • Página web ©2001-2011 Saiyine descargada en s, con 6094853 visitas en total, hoy (de un total de 0 previstas).

    . . .