Delphi を使用して、コンポーネントを使用して pgsql データベースにアクセスしています。
ADOQuery、ADOConnection、DataSource、および DBGrid。
データを (DBGrid ではなく) TStringGrid で表示する方が便利であることを確認したので、以下のコードも使用しています。
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;
データベースには、それぞれ G データと T データの 2 つの列があります。ここで、別のプロジェクトで、以下に示すように G、T パラメータを設定する多くの関数を作成しました。
function FindSomething(G, T:double):double;
私が求めているのは、関数の G、T パラメータとして、上記のデータベース列のセル エントリをどのように使用できるかということです。私はこれに非常に慣れておらず、ずっと非常にトリッキーでした。どんな助けでも大歓迎です。