如何复制作字符串;将A字符到B字符之间的所有字符复制到,memo控件中去?(5分)

  • 主题发起人 主题发起人 laohe
  • 开始时间 开始时间
L

laohe

Unregistered / Unconfirmed
GUEST, unregistred user!
如何复制作字符串;将A字符到B字符之间的所有字符复制到,memo控件中去?

也就是复制作特定范围内的字符串!谢谢高手相救
 
高手们是不是觉得钱太少了,我真的没钱了,侠义之士,救命
 
你这个问题不好答:
你的源字符串是一个什么样了例如
str:='AABBBBBB'
你说要复制, A字符到B字符 结果是多少
A是数值时 还可以
你可以用
if b>=a then
showmessage( copy(str,a,b-a))
else
showmessage(copy(str,b,a-b));
 
得到a b的 位置 i,j
memo.text:=copy(str,i+1,j-i-1)就可以了!
 
memo.text:=copy(str,pos('a',str)+1,pos('b',str)-pos('a',str)-1); ok!
 
大侠为什么不能:例如:我想取出
procedure TForm1.Button1Click(Sender: TObject);

TForm1.Button1Click 这段字节

所以我才想'procedure'与'(Sender: TObject);'字符之间;

 
只要你的字符串不出现
'AADFASsDFAsSADA'
取A 到S中间的内容就行
你可以用xfliwu 的方法
 
用pos确定字符串的位置,用copy复制字符串,应该没有问题吧
 
谢谢各位的支持,结束问题
 

Similar threads

回复
0
查看
1K
不得闲
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
916
SUNSTONE的Delphi笔记
S
后退
顶部