FFildList:TObjectList;//字段列表
TFieldElement = class(TObject)
private
FField:string;
FCaption:string;
end;procedure TF_Find.InitField;
var
i:Integer;
FieldElement:TFieldElement;
begin
C_FieldList.Clear;
C_FieldList.OnChange := FieldChange; for i:= 0 to FFildList.Count-1 do
begin
FieldElement := TFieldElement(FFildList.Items[i]);//请问这句什么意思?
if Trim(FieldElement.FCaption) <> '' then
C_FieldList.AddItem(FieldElement.FCaption,FieldElement)
else
C_FieldList.AddItem(FieldElement.FField,FieldElement);
end;
if FFildList.Count > 0 then
begin
C_FieldList.ItemIndex := 0;
C_FieldList.OnChange(C_FieldList);
end;
end;
TFieldElement = class(TObject)
private
FField:string;
FCaption:string;
end;procedure TF_Find.InitField;
var
i:Integer;
FieldElement:TFieldElement;
begin
C_FieldList.Clear;
C_FieldList.OnChange := FieldChange; for i:= 0 to FFildList.Count-1 do
begin
FieldElement := TFieldElement(FFildList.Items[i]);//请问这句什么意思?
if Trim(FieldElement.FCaption) <> '' then
C_FieldList.AddItem(FieldElement.FCaption,FieldElement)
else
C_FieldList.AddItem(FieldElement.FField,FieldElement);
end;
if FFildList.Count > 0 then
begin
C_FieldList.ItemIndex := 0;
C_FieldList.OnChange(C_FieldList);
end;
end;
解决方案 »
- 求 EhLib.v5.6.215 的汉化文件及表中表和分组汇总功能DBGridEhGrouping
- 问两个有关ADOQuery+Foxpro开发的问题
- 招聘Delphi开发人员(杭州)
- 再高分求一个解决办法,一个简单的问题!!!马上给分!!!我晕!!!
- 谁知道delphi6 update pack2哪里有下载?
- 请大家帮忙,为什么在把 FORMSTYLE 改成 FSMDIFORM 后,IMAGEL。CANVAS里的图形看不见,求救啊,急
- 很简单的菜鸟问题!关于对数和浮点型变量!(急!)
- delphi控件-关于DBGird,cxGird的显示问题(散分求)
- 将adotable1['quan1'](字符型)内容转变为access中的长整型,该如何完成.
- 谁有Cell组件的注册码?
- 【求救】EhLib3.3中DbGridEh用Ctrl+F调出查找框报错!
- CxGrid与ADO异步执行
TFieldElement这个类应该有个构造函数,上面就是构造函数代码
再有这句什么意思: C_FieldList.OnChange(C_FieldList);
C_FieldList.OnChange(C_FieldList); //C_FieldList 执行对象事件