3 replies to this topic

[littlebigfred]

Hello

This is most likely a newbie question: In the NextGrid HOWTO, I see that it has a AddCells() method which apparently fills the grid in one go, so as to avoid calling AddRows() followed by a double For loop (to go through each row, and each column).

I'd like to know how to use this method when the data is in a dataset:

CODE

//Create StringList to host array "SQL name = User-friendly name", and add columns
MySL := TStringList.Create;
MySL.CommaText := 'id=Identification, label=Label';
for index := 0 to MySL.Count - 1 do begin
  NextGrid1.Columns.Add(TNxTextColumn,MySL.ValueFromIndex[index]);
end;

With ASQLite3Query1 do begin
  SQL.Text := 'SELECT id,label FROM mytable';
  Open;

  //How to fill grid with AddCells?
  //E2250 There is no overloaded version of 'AddCells' that can be called with these arguments
  NextGrid1.AddCells(ASQLite3Query1.Fields);
end;

FreeAndNil(MySL);

Thank you.

[littlebigfred]

Apparently, there's no way to use the AddCells() from a dataset, and we have to loop through each row, and within each row, through all columns, and use Cells[]:

CODE

    SQL.Text := 'SELECT id,label FROM mytable';
    Open;

    //Fill grid with stuff from dataset
    NextGrid1.AddRow(ASQLite3Query1.RecordCount);
    row := 0;
    First;
    while not EOF do begin
      for index := 0 to FieldCount - 1 do begin
        NextGrid1.Cells[index,row] := Fields[index].AsString;
      end;
      inc(row);
      Next;
    end;

    //Change grid look
    With NextGrid1 do begin
      //Important: Call BestFitColumn() before setting other options...
      for index := 0 to Columns.Count - 1 do begin
        BestFitColumn(index, bfBoth);
      end;
      Columns[Columns.Count - 1].Options := Columns[Columns.Count - 1].Options + [coAutoSize];
      Options := Options + [goSelectFullRow,goMultiSelect];
    end;

[Boki (Berg)]

Hello Fred,

I will write one small demo for you tomorow. I hope that it will help you.

Best regards

[littlebigfred]

I will write one small demo for you tomorow. I hope that it will help you.

Thank you, it's nice of you. The above code does work, but since AddCells looks a lot easier, I was curious to see if I could get it to work.