我定义了一个集合:
type
Tcharset= set of char;
var
charset:Tcharset;
pd:string;
begin
charset:=['z','y','x'];
end;
然后我从一个string里取出一个字母pd,我判断它是否在这个集合
pchar(pd) in CharSet),系统报错:
Incompatible types: 'PAnsiChar' and 'Char'
请问,问题出在那里?
type
Tcharset= set of char;
var
charset:Tcharset;
pd:string;
begin
charset:=['z','y','x'];
end;
然后我从一个string里取出一个字母pd,我判断它是否在这个集合
pchar(pd) in CharSet),系统报错:
Incompatible types: 'PAnsiChar' and 'Char'
请问,问题出在那里?
解决方案 »
- 如何知道ftp文件传输是否完成
- 怎樣在記錄被select出來後鎖定物理表中對應的記錄在完成操作後將其解鎖數據庫為sql2000
- 求助,关于保存数据进数据库,急急急!
- 问题简单!先到先得分!
- 为什么调用我的dll老是报错?在线!
- 数据库问题
- 如何编程实现用摄像头浏览动态图像并取得一个截图,谢谢!!急!!!
- 急,求助:delphi开发的ISAPI编译成DLL,如何让它在WIN7 IIS7下配置运行?
- Delphi treeview 控件中 CustomDraw 和 CustomDrawItem到底是怎麼用, 在什麼情況下用?
- 有谁知道EXE文件的格式?
- 怎么读取windows剪贴板里的图片
- 高分求游戏图形下载地址。
if pd[i] in charset then
begin
// 存在这样的字符属于集合中
Break;
end;
str,pd:string;
pd:=copy(str,7,1);
if (pchar(pd) in CharSet) then //在这行报类型不匹配
.....
应该怎么来判断,请教了!
Str,Pd:String;
begin
if Str[7] in CharSet then ....
end;
没有必要COPY呀……
有更好的方法吗?
TCharSet=Set of Char;
....
procedure TForm1.Button1Click(Sender: TObject);
var
CharSet:TCharSet;
S:String;
begin
CharSet:=['F','S'];
S:='FSFSFSF';
if S[7] in CharSet then ShowMessage('Exist');
end;偶给你的方法不可以吗?