小弟写一个delphi的程序,要用到pos,copy,delete等几个处理字符串的函数,但是好像有点问题:
1.程序运行到这句话,即if (Pos(substr,str)=0) then 时,提示出错invalid variant type conversion.
2.键入pos,然后用ctrl+space出现的提示窗口中出现的是procedure pos,而不是function pos(substr:string;s:string)integer。copy和delete也存在类似问题。希望各位高手不吝赐教,先谢谢了!
1.程序运行到这句话,即if (Pos(substr,str)=0) then 时,提示出错invalid variant type conversion.
2.键入pos,然后用ctrl+space出现的提示窗口中出现的是procedure pos,而不是function pos(substr:string;s:string)integer。copy和delete也存在类似问题。希望各位高手不吝赐教,先谢谢了!
解决方案 »
- Win7 PostMessage(THandle,WM_CHAR,13,0);
- 大家一起来讨论一下delphi程序架构的问题
- 用了Oratable 代码如下运行出现错误提示:Oratable:Can't modify a read-only dataset.求解。
- 请问视频和音频传输的原理需要看哪些书籍?
- 谁那里有李维的《Borland传奇》这本书? 很想拜读
- 下载了XPmenu,怎么装到Delphi中进行使用阿,大虾帮忙
- sql语句在delphi中的应用!急!!!!!!!!!
- 求救:怎样控制Kodak控件中ImgThumbnail组件的问题
- 请教高手,能否提取 .html 文件的内容?????
- stringgrid中,怎样设置每列的宽度?还有行高?
- 我编译(compile)时很快,但链接(build)费时很长,而且链接后就见不到代码窗口和对象窗口了,为什么?
- 关于数据存储的问题?
我的代码的一部分,没有问题啊,再看看是不是别的错误:
if Pos('L|1|F',LStr1) = 0 then
IsError := true
else
但是,Pos(substr,str)没有问题。例↓function DelZero(S: String): String; //去除’0’
begin
while Pos('0', S) > 0 do Delete(S,Pos('0',S),1);
Result := S;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
showMessage(DelZero('0003044'));
end;