Использование записей базы данных в качестве параметров функции
Я использую 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 для своей функции записи в ячейках из приведенных выше столбцов базы данных? Я очень новичок в этом, и это было очень сложно все время. Любая помощь очень ценится.