一个简单问题,怎样得到两个指定字符之间的字符!!

[huaneww]

怎样得到两个指定字符之间的字符呀?
如:有一字符串"asdf/afsdfasfdasf/sadfa"
怎样才能得到'/'之间的字符呀????


请写出代码谢谢
有答案了立即给分!

[gdwyh]

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;str1:string;
begin
str1:='asdf/afsdfasfdasf/sadfa';
i:=pos('/',str1);
str1:=copy(str1,i+1,length(str1)-i);
i:=pos('/',str1);
str1:=copy(str1,1,i-1);
end;

[huaneww]

还有没有简单有效的方法呀?

[noil0125]

s:='asdf/afsdfasfdasf/sadfa';
memo1.Text:=stringreplace(s,'/',#13#10,[rfReplaceAll]);
showmessage(memo1.Lines[1]);

[huaneww]

是这样的这个字符串有可能要传弟几个参数!
如:有一定符串为"<ID>10001</ID><USER>CSSA</USER><PASS>123456</PASS>";
我要怎样才能准确分别地读出这个字符串中<ID></ID>,<USER></USER>,<PASS></PASS>部分中的字符呀??

请高手帮帮忙,在线等待!

[noil0125]

var
i:integer;
s:string;
begin
s:='<ID>10001</ID><USER>CSSA</USER><PASS>123456</PASS>';
memo1.Text:=stringreplace(s,'>',#13#10,[rfReplaceAll]);
memo1.Text:=stringreplace(memo1.Text,'<',#13#10,[rfReplaceAll]);
for i:=0 to memo1.Lines.Count-1 do
if not odd(i) and (memo1.Lines[i]<>'')then
showmessage(memo1.Lines[i]);

[csntgao]

看来是XML，建议你把字符串用TXMLDocument包装，然后读取TXMLDocument属性，如果不要求速度，这种方法的好处是可扩展性好

[vagerent]

楼上的老兄说得对，这样能为长远打算，也可以用楼上上的代码，也可以的

[huaneww]

好,问题解决,立即结贴!