请问这句是什么意思?
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;