Dragon1993vsLong的博客

USEComObj,Registry;///////////////////////////=================》生成多sheet Execl《===================BEGIN====////////////////////////////function TQueryDestineAnalyseForm.GetShellFolders(strDir: string): string;const regPath = '\Software\Microsof...

1. 通过选项，定位下标cbbSetBussTypeIDValue.ItemIndex := cbbSetBussTypeIDValue.CodeItems.IndexOf(FieldByName('BussTypeID').AsString);