1 reply to this topic

[chris]

hi
in V3.5 the line with exit i replace > by >=

procedure TNextGrid.AddCells(Values: array of WideString);
var
I, Col: Integer;
begin
AddRow;
I := 0;
while I < Length(Values) do
begin
for Col := 0 to Columns.Count - 1 do
begin
Cells[Col, RowCount - 1] := Values[I];
Inc(I);
if I >= Length(Values) then Exit;
end;
if I < Length(Values) then AddRow;
end;
end;

[Boki (Berg)]

Hello,

Fixed. Thank you,

regards