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.

Varios ejemplos de lo que buscaban visitantes recientes: