0

我正在使用 Delphi 使用以下组件访问我的 pgsql 数据库：

ADOQuery、ADOConnection 和 DataSource 和 DBGrid。

我已经看到在 TStringGrid（而不是 DBGrid）中呈现数据很方便，所以我也在使用下面的代码：

procedure TForm2.StringGrid1Click(Sender: TObject);
var
  x,y: integer;
begin
  StringGrid1.ColCount := DBGrid1.Columns.Count;
  StringGrid1.RowCount := DBGrid1.DataSource.DataSet.RecordCount+1;
  StringGrid1.FixedCols := 0;
  for y := 0 to DBGrid1.Columns.Count-1 do
    StringGrid1.Cells[y, 0] := DBGrid1.Columns[y].Title.Caption;
  x := 1;
  DBGrid1.DataSource.DataSet.DisableControls;
  DBGrid1.DataSource.DataSet.First;

  while not DBGrid1.DataSource.DataSet.Eof do
  begin
    for y := 0 to DBGrid1.Columns.Count-1 do
      StringGrid1.Cells[y,x] :=                                
        DBGrid1.DataSource.DataSet.FieldByName(DBGrid1.Columns[y].FieldName).AsString;
    inc(x);
    DBGrid1.DataSource.DataSet.Next;
  end;
  DBGrid1.DataSource.DataSet.EnableControls;
end;

该数据库分别有2列G和T数据。现在，在另一个项目中，我做了一些函数来设置 G，T 参数，如下所示：

 function FindSomething(G, T:double):double;

我要问的是如何将上述数据库列中的单元格条目用作我的函数的 G、T 参数？我对此很陌生，而且一路都很棘手。非常感谢任何帮助。

4

0 回答 0