我在取 " <[email protected]> " 我想把”<“,">"中的字符取出来。
我用的是这样一个方法:
str:string;
ipos1,ipos2:integer;
str:=' "阿枫<[email protected]>"'
ipos1:=pos('<',str);
ipos2:=pos('>',str);
str:=copy(str,ipos1+1,ipos2-1);
为什么这个str的值最后是[email protected]> 按道理因该是[email protected] 请问这到底是什么原因。
我用的是这样一个方法:
str:string;
ipos1,ipos2:integer;
str:=' "阿枫<[email protected]>"'
ipos1:=pos('<',str);
ipos2:=pos('>',str);
str:=copy(str,ipos1+1,ipos2-1);
为什么这个str的值最后是[email protected]> 按道理因该是[email protected] 请问这到底是什么原因。
解决方案 »
- 一行代码的心得
- 如何移动stringgrid里面的记录,就是col值不变,row值发生改变?藉此来改变记录的顺序。
- 急---字符编码问题---200分求解
- 怎么样找到中文字的进程?内有代码,可以找到字母型的。急~~!!!
- 各位看看,下面的程序的组件为什么不能相应键盘按下的任意键。就是showmessage不执行为什么。
- 我准备开发一个进销存系统,希望大家能多提一些建议.
- 关于ACCESS 数据库的问题
- 关于Table的主从关系,请各位大虾帮忙!
- topgrid怎么删除当前行的问题?
- 一个小问题,是这样的........
- 高分求救!怎样实现用tchart将数据库中的数据显示出来!!就是tchart中的series~急,在线等候~
- 关于image显示图象组件.
str:=copy(str,ipos1+1,ipos2-ipos1-1);
str:=copy(str,ipos1+1,ipos2-ipos1-1);
改为str:=copy(str,ipos1+1,ipos2-1-ipos1);
copy后面的参数不是结束位置。
COPY用来得到你要的结果
function Copy(S; Index, Count: Integer): string;
function Copy(S; Index, Count: Integer): array;Count为长度
最后一个参数你理解错了
所以正确的为
str:=copy(str,ipos1+1,ipos2-ipos1-1);