if not f_rkdc.ComboBox2.Text in['>','<','=','<>','>=','<='] then f_rkdc.ComboBox2.Text := '=';—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
解决方案 »
- TWebBrowser的问题
- 求SQL语句(MS Server 2000)把一表中一列数据复制到另外一表中的列
- 新建一个panel,怎样把原来的组件放进panel,应该是超简单的送分题吧,来帮帮忙
- Delphi 2005 自带的Borland Socket Server BUG同时Source下的ScktSrvr.dpr工程缺少ScktMain.pas
- 如何实现运行客户端是自动注册主件“midas.dll”???
- 请问如何让是窗题最大化失效??
- 寻求上海Delphi高手
- 如果用D7开发基于Corba结构的分布式系统,连接数据库时用什么控件啊
- 通过安装组件,install完第三方控件后,怎样引用他?
- 请教:query的结果到了dbgrid里面,如何统计dbgrid里查询结果的条数
- 关于 LOOKUP字段的问题
- 怎样配置服务器端,能使客户端的到执行程序访问服务器端的应用程序?
括号的问题
if not (f_rkdc.ComboBox2.Text in('>','<','=','<>','>=','<=')) then f_rkdc.ComboBox2.Text := '=';
千万记住逻辑顺序。
你那样是not f_rkdc.ComboBox2.text,这肯定错。
还是报错:[Error] rkdC.pas(66): ')' expected but ',' found这时光标停在....in('>',与'<'....之间
******************************************************
if not (f_rkdc.ComboBox2.Text in['>','<','=','<>','>=','<=']) then f_rkdc.ComboBox2.Text := '=';
也报错:[Error] rkdC.pas(67): Incompatible types: 'Char' and 'String'
[Error] rkdC.pas(67): Incompatible types: 'TCaption' and 'Char'
请大家再想想办法吧,谢谢了~
为什么不
combobox2.style := csdropdownlist;要是想改变它的项目的话
Combobox2.ItemIndex := I
这样就可以了啊;