关于过程的问题

Question

我定义了一个过程
procedure tform1.fillfieldnames;
var
  icount:integer;
begin
  rgfieldnames.items.clear;
  for icount:=0 to adodataset1.fields.Count-1 do
  begin
    rgfieldnames.items.add(adodataset1.fields[icount].fieldname);
  end;
  rgfieldnames.itemindex:=0;
end;
但不能用不知问题出在那请各位大虾帮忙找一下。

Answer 1

什么错误？
在
  private
或
  public
处声明了吗？  private
    procedure fillfieldnames;
procedure tform1.fillfieldnames;
var
  icount:integer;
begin
  rgfieldnames.items.clear;
  for icount:=0 to adodataset1.fields.Count-1 do
  begin
    rgfieldnames.items.add(adodataset1.fields[icount].fieldname);
  end;
  rgfieldnames.itemindex:=0;
end;

Answer 2

rgfieldnames定义了吗？如果没有，出错。
如果一个字段都没有，rgfieldnames.itemindex:=0;出错。

Answer 3

这个过程没问题，应该是前面没有申明，你可以在Private或者Public里加入
procedure fillfieldnames;

Answer 4

声明了但是还是不能用错误为[Error] Unit1.pas(88): Undeclared identifier: 'getsearchfield'
[Error] Unit1.pas(88): Undeclared identifier: 'cbsearchvalue'

Answer 5

procedure tform1.fillfieldnames（rgfieldnames：TComboBox；adodataset:TADODataSet）;
var
  icount:integer;
begin
  rgfieldnames.items.clear;
  for icount:=0 to adodataset1.fields.Count-1 do
  begin
    rgfieldnames.items.add(adodataset1.fields[icount].fieldname);
  end;
  rgfieldnames.itemindex:=0;
end;