[nhr]

выскакивает такая ошибка:

[Error] Unit2.pas(112): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

процедура объявлена как:
private
procedure ExecuteDBQuery(constADBName, ADBConnStr: string);

а вызов ее таков:
StringGrid1.Cells[2,1]:=ExecuteDBQuery(s,s1);

помогите разобраться!

[NumLock]

Код:

function ExecuteDBQuery(const ADBName, ADBConnStr: String): String;
begin
end;

[nhr]

Спасибо, а как в ней возвратить значение?
вот она сама:

function TForm1.ExecuteDBQuery(const ADBName, ADBConnStr: string):string;
var i,j:integer;
s,s1,AConnectionString,AQuery:string;
begin
ADOQuery1.Active:=False;
ADOConnection1.Connected:=False;
try
ADOConnection1.ConnectionString:=AConnectionString ;
AdoCOnnection1.Connected:=True;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(AQuery);
ADOQuery1.Open;
StringGrid1.Cells[1,1]:=ADOQuery1.Fields[0].AsString;
finally
if ADOquery1.Active Then ADOquery1.Close;
ADOConnection1.Connected:=False;

end;

[NumLock]

Код:

function ExecuteDBQuery(const ADBName, ADBConnStr: String): String;
begin
  ExecuteDBQuery:='true';
  // либо
  Result:='false';
end;

[nhr]

а если так:
ExecuteDBQuery:=ADOQuery1.Fields[0].AsString;
мне надо, чтобы при вызове этой ф-ии данные выводились на экран