
Twice I destroyed the light, and twice I failed [?]
¡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: 477
procedure TForm1.IntercambiaEdit(Sender: TObject);
var
i,j : integer;
aux,cad1,cad2 : string;
begin
cad1:='aeiou'; // Los caracteres de esta cadena seran sustituidos
cad2:='AEIOU'; // por los equivalentes en esta...
with (Sender as TEdit) do
begin
aux:=text;
for i:=1 to length(aux) do
for j:=1 to length(cad1) do
if aux[i]=cad1[j] then aux[i]:=cad2[j];
text:=aux;
SelStart:=length(aux);
end;
end;
Usar este procedimiento como onchange del edit en cuestion. En el ejemplo, como hacer un edit que solo acepte las vocales en mayusculas.
Otras entradas de la web que podrian interesarte:
. . .
Menuda oferta, ¿un pendrive Verbatim de 16Gb por solo 8,99€???
. . .
. . .
Varios ejemplos de lo que buscaban visitantes recientes:
. . .
Página web ©2001-2011 Saiyine descargada en s, con 6094848 visitas en total, hoy (de un total de 0 previstas).
. . .