我这里是正常的,不过我看到计划定义信息这段代码跟你不一样
try
{ 加载计划类型 }
PlanTypeList.Clear;
lClone.CloneCursor(DataSetPlanType, False, True, False);
lClone.First;
while not lClone.Eof do
begin
lPlanTypeInfo := TPlanTypeInfo.Create;
lPlanTypeInfo.FTypeID := lClone.FieldByName('FCODE').AsString;
lPlanTypeInfo.FTypeName := lClone.FieldByName('FCONTENT').AsString;
if lPlanTypeInfo.FTypeID.Length > 2 then
lPlanTypeInfo.FGroupID := lPlanTypeInfo.FTypeID.Substring(0, 2) else
lPlanTypeInfo.FGroupID := '';
PlanTypeList.Add(lPlanTypeInfo);
lClone.Next;
end;
finally
lClone.Free;
end;
end;
看红色的你那边屏蔽了,我这里没有,你是否修改过这些信息 |