Código Delphi [-] var i: Integer; comp: TComponent; begin for i := 1 to 100 do begin // 100 label comp := FindComponent('Label' + IntToStr(i)); TLabel(comp).Text:= ' '; end;
var i: Integer; comp: TComponent; begin for i := 1 to 100 do begin // 100 label comp := FindComponent('Label' + IntToStr(i)); TLabel(comp).Text:= ' '; end;