Código Delphi [-] for n:=(Form1.ComponentCount -1) downto 0 do begin if ((Components[n] is TEdit) and (Components[n].tag = 1)) then begin tabla[n] := TEdit(Components[n]).text; end; end;
for n:=(Form1.ComponentCount -1) downto 0 do begin if ((Components[n] is TEdit) and (Components[n].tag = 1)) then begin tabla[n] := TEdit(Components[n]).text; end; end;