Código Delphi [-] begin Valor := Query3.FieldByName('det_valor').AsInteger; sgEvaluacion.Cells[Valor + 1, X] := IntToStr(Valor); Query3.Next; end;
begin Valor := Query3.FieldByName('det_valor').AsInteger; sgEvaluacion.Cells[Valor + 1, X] := IntToStr(Valor); Query3.Next; end;