
Parece ser que domina el PowerPoint... [?]
Añademe a tus favoritos!
Contacto
Post al azar
RSS
BUSCAR
Mapa de la web
el 2001-01-01 00:00:00 - Secciones: - Enlace permanente: 437
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 1 to 20 do begin
with TEdit(FindComponent('Edit' + IntToStr(i))) do
begin
Text:='Esto es una prueba';
end;
end;
Este procedimiento busca edit con numero 20 o menor y les cambia el texto.
Saiyine recommends the easiest way to earn money with your web: get paid just by having some links! Click this button to check it out.

tengo un...
Varios ejemplos de lo que buscaban visitantes recientes: