Código Delphi
[-]var
inicio, fin : Integer;
begin
inicio := 1; fin := vlRelacionarProveedores.RowCount; SetLength(self.provBDprovHojaCal, fin, 2); while(inicio < fin) and (vlRelacionarProveedores.Cells[1, inicio] <> '') do
begin
self.provBDprovHojaCal[inicio-1, 0] := vlRelacionarProveedores.Cells[0, inicio]; self.provBDprovHojaCal[inicio-1, 1] := extraerIDProveedor(vlRelacionarProveedores.Cells[1, inicio]); Inc(inicio);
end;
SetLength(self.provBDprovHojaCal, inicio-1, 2); end;
Resulta que fin = 2, porque solo estoy relacionando 2 mmmm...