
We don't need no thought control. [?]
¡Añademe a tus favoritos!
Contacto
Post al azar
RSS
BUSCAR
Mapa de la web
Por
Saiyine
el 0000-00-00 00:00:00 - Secciones: - 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:
. . .
. . .
. . .
Varios ejemplos de lo que buscaban visitantes recientes:
. . .
Página web ©2001-2011 Saiyine descargada en s, con 6094853 visitas en total, hoy (de un total de 0 previstas).
. . .