Código Delphi [-] with dbgrid do begin for I:= 0 to FieldCount-1 do begin Fields[i].value; ...//lo demas ... end; end;
with dbgrid do begin for I:= 0 to FieldCount-1 do begin Fields[i].value; ...//lo demas ... end; end;