Foros Club Delphi - Grid index out of range

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Grid index out of range (https://www.clubdelphi.com/foros/showthread.php?t=49353)

Grid index out of range

Buenas,

Cuando estoy ( en un DBDrid ) posicionado en el último registro y quiero añadir un nuevo registro (dándole a la flecha para abajo) me aparece el mensage: "Grid index out of range".

Lo curioso es que no siempre da el error.

¿ a qué es debido?

tienes algun codigo relacionado??

es lo mas seguro, colocalo y te podremos ayudar con el error.

Código Delphi [-]procedure TEdOfertaFrm.PzDsDataChange(Sender: TObject; Field: TField);
begin
 if (trim(PzOfertas.FieldByName('TIPOM').AsString)<>'') then
     if (PzOfertas.FieldByName('VCORTE').AsFloat<>0) or
        (PzOfertas.FieldByName('VPz').AsFloat<>0) then
        DbGrid1.Columns[5].Readonly := true
     else
        DbGrid1.Columns[5].Readonly := false
  else
     DbGrid1.Columns[5].Readonly := false ;
end;
procedure TEdOfertaFrm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (DbGrid1.SelectedField.FieldName='VEXTRAS') and (key=VK_RIGHT) then begin
     DbGrid1.SelectedField:= OfertasFrm.PzofertasVPU;
     key := 0
 end;
 if (DbGrid1.SelectedField.FieldName='VPU') and (key=VK_Left) then begin
     DbGrid1.SelectedField:= OfertasFrm.PzofertasVEXTRAS;
     key := 0
 end;
 if (DbGrid1.SelectedField.FieldName='VPU') and (key=VK_RIGHT) or
    (DbGrid1.SelectedField.FieldName='REF') and (key=VK_LEFT) then
     key := 0;
 if (key=VK_HOME) then begin
    DbGrid1.SelectedField:= OfertasFrm.PzofertasREF;
    key := 0
 end;
 if (key=VK_END) then begin
    DbGrid1.SelectedField := OfertasFrm.PzofertasVPU;
    key := 0
 end;
 if (key=VK_DELETE) and (Shift=[ssCtrl]) then
    Key := 0;
if (key=VK_INSERT) then
    if (Shift<>[ssShift]) and (Shift<>[ssCtrl]) then
    Key := 0;
 if ((key=VK_F3) and (
     (DbGrid1.Selectedfield.FieldName = 'VPZ')      or
     (DbGrid1.Selectedfield.FieldName = 'VCORTE' )  or
     (DbGrid1.Selectedfield.FieldName = 'VTRATMTO') or
     (DbGrid1.Selectedfield.FieldName = 'VEXTRAS'))) then
    DBGrid1EditButtonClick(nil);
end;
 
 
procedure TOfertasFrm.PzOfertasAfterScroll(DataSet: TDataSet);
begin
   Aceptar1.Enabled := not PzOfertas.IsEmpty and (PzOfertasACEPTADA.AsString <>'S')
end;
procedure TOfertasFrm.PzOfertasCalcFields(DataSet: TDataSet);
begin
  PzOfertasACEPTADACALC.AsString   := CompletaSiNo(PzOfertasACEPTADA.AsString);
  //PzOfertasPIEZAVERSION.AsString   := PzOfertasREF.AsString+'   '+PzOfertasC_VR.AsString;
  try
    PzOfertasImporte.AsFloat         := PzOfertasVPU.AsFloat * PzOfertasQPZ.AsInteger;
    PzOfertasImporteMaterial.AsFloat := PzOfertasVPz.AsFloat * PzOfertasQPZ.AsInteger;
  except
  end;
  try
     OfertasCANT.Value := PzOfertasTOTAL.Value
  except
  end;
end;
procedure TOfertasFrm.PzOfertasBeforePost(DataSet: TDataSet);
begin
   if not modGestor.MaterialValido(PzOfertasTIPOM.AsString) then
      if PzOfertas.State in [dsEdit,dsInsert] then
         PzOfertas.Cancel;
end;
procedure TOfertasFrm.PzOfertasAfterPost(DataSet: TDataSet);
begin
   try
     OfertasCANT.Value := PzOfertasTOTAL.Value
   except
   end;
end;

las columnas del grid son estaticas o dinamicas???

las columnas son dinamicas

ese es el problema donde haces la referencia:

DbGrid1.Columns[5].Readonly := false;

en ese momento el grid no tiene las 6 columnas que necesitas por eso el error index out of range...

antes de hacer eso deberias verificar si el count de las columnas es mayor o igual de 6

he añadido el código y no va

cual codigo añadistes y cual codigo no va??? :confused::confused:

Código Delphi [-]procedure TEdOfertaFrm.PzDsDataChange(Sender: TObject; Field: TField);
begin
if DgBGrid1.Columns.Count>=6 then
 if (trim(PzOfertas.FieldByName('TIPOM').AsString)<>'') then
     if (PzOfertas.FieldByName('VCORTE').AsFloat<>0) or
        (PzOfertas.FieldByName('VPz').AsFloat<>0) then
        DbGrid1.Columns[5].Readonly := true
     else
        DbGrid1.Columns[5].Readonly := false
  else
     DbGrid1.Columns[5].Readonly := false ;
end;

está bien?

eso esta bien dependiendo lo que quieras lograr, pero si deberia funcionar para controlar el error que dices te da

Si comento el codigo anterior, me sigue dando el error.
Estoy desesperado.

sigo sin entender, podrias tomarte 5 minutos para explicar bien lo que sucede, porq comentas el codigo??

Lo Explico:

SOLO SUCEDE EN ALGUNOS CASOS.

Cuando intento añadir una nueva linea en el DbGrid a veces se llega a ejecutar :

Código Delphi [-]procedure TEdOfertaFrm.PzOfertasNewRecord(DataSet: TDataSet);
var
  n : integer;
begin
  PzOfertas.FieldByName('OFERTA').AsString  := OfertasFrm.OfertasOFERTA.AsString;
  PzOfertas.FieldByName('ACEPTADA').AsString  := 'N';
  PzOfertas.FieldByName('PzasArea').AsInteger := 1;
  try
     n := PzOfertas.FieldByName('MaxPos').Value + 1
  except
     n := 1;
  end;
  PzOfertas.FieldByName('O_Oferta').AsString  := AddCeros(n,3);
  BorrarPieza.Enabled := true
end;

y todo va correcto.
Y otras veces me da el error: "Grid index out of range"

PzOfertas lo tengo declarado de la siguiente manera:

Código Delphi [-]PzOfertas := OfertasFrm.PzOfertas;

ClientDataSet de otro formulario

La verdad no veo la relacion, son dos codigos distintos lo que colocas, y el newrecord, se debe ejecutar siempre que agregas un registro

Antes de ejecutarse el Newrecord aparece el error.

y cuando salta la excepcion podrias indicar la linea y el resto del codigo que marca delphi??

el problema es que al intentar añadir un nuevo registro no se que evento se está ejecutando ( antes del newrecord)

¿ qué evento se ejecuta cuando intento añadir un nuevo registro en el dbGrid ? alguna veces funciona el OnNewRecord

pero te pregunto algo, cuando te genera esa excepcion delphi se detiene y te muestra la linea donde se detuvo, que linea te esta mostrando???

Aunque te cueste creerlo, no sé. El código me está mareando. Por qué no hace el OnNewRecord?

Lo siento por liarte