if 'hello' in ['hello','world','god'] then showmessage('i got it')
语法错
语法错
解决方案 »
- Delphi 控件问题
- 请问adoquery在access数据库中能否使用事务,谢谢
- 双网卡问题
- 密码验证的问题,帮忙看一下啊,。。。谢谢了
- 关于Pointer类型数据和自定义的数据类型(Record),TList的保存问题。
- 请求帮助!!高手门
- 都来看看,这是什么病毒?三百分,解决了马上给分
- 请问谁有用listbox和api函数(openprocess,terminateprocess)杀进程的源代码?!谢谢了啊~~~
- SimpleDataSet+mysql 字段是自动增加 或则 有些字段是有默认值 但是增加的时候还是提示不能空值
- xe7下的pos函数返回结果异常求问
- SQL高手请进(12月8日结贴)
- 圣诞散分,同时送上份FLASH动画祝福。
type words=set of (hello,world,good);if hello in [hello,world,good] then
ShowMessage('I got it');
Vwords = (world,hello,good);procedure TForm1.Button1Click(Sender: TObject);
begin
if vwords(ord(hello))=hello then
ShowMessage('在里面');
end;
strs:TStringlist;
begin
strs:=TStringlist.create;
strs.Delimiter:=',';
strs.add('hello');
strs.add('world');
strs.add('god');
//strs.commatext中的内容为'hello,world,god' ,剩下的不用我说了吧
end;//记得用完之后 strs.Free;