Código Delphi [-] procedure ColocarNombres(); var x:integer; begin QueryCategorias.First; x:=1; While QueryCategorias.Eof=false do begin TEdit(FindComponent('Edit'+inttostr(x))).Text:=QueryCategorias.Fields[1].AsString; inc(x); QueryCategorias.Next; end;
procedure ColocarNombres(); var x:integer; begin QueryCategorias.First; x:=1; While QueryCategorias.Eof=false do begin TEdit(FindComponent('Edit'+inttostr(x))).Text:=QueryCategorias.Fields[1].AsString; inc(x); QueryCategorias.Next; end;