grid的问题,急!!!

Question

begin
  inherited;
  FGrid := nil;open_sql('select dm,zdm from zd', dm.cds_ReadOnly);
  dm.cds_ReadOnly.First;
for i := 0 to dm.cds_ReadOnly.RecordCount - 1 do
begin
... 
end;
...
end;open_sql('select dm,zdm from zd', dm.cds_ReadOnly);
从别处看到这段代码,我编译的时候提示这句出错,请高手指点

Answer 1

别人在另一个单元里定义了open_sql这个函数，你要先引用那个单元才可以

Answer 2

open_sql是一个别人自定义的函数或者过程，你要看看别人的那个过程你是否满足你的要求
如果满足，那要把这个过程拷过来你的程序里面，不然就是未定义了

Answer 3

自己写一个
procedure open_sql(Sqlstr:string ; AdoQuery:TAdoQuery)
begin
  With AdoQuery do 
  begin
    close;
    Sql.text := Sqlstr;
    Open;
  end;
end;

Answer 4

open_sql是一个别人自定义的函数或者过程你可以自己写一个