Question

delphi怎么获取字符串之间多个字符内容？

Answer 1

var
spos,epos
:integer;
str
:widestring;
sl
:tstringlist;
begin
sl
:=
tstringlist.create;
try
str
:=
'你好：嗯；你好：好；多谢：谢谢；知道：不知道；好了：没有；';
repeat
spos
:=
pos('：',str);
//查找"："的位置
if
spos
>
0
then
//判断字符串中是否含有"："
begin
epos
:=
pos('；',str);
//查找"；"的位置
if
epos
>
0
then
//判断字符串中是否含有"；"
sl.add(copy(str,spos
+
1,epos
-
spos
-
1))
//含有"；"就获取"："到"；"的字符串
else
begin
//不含"；"
就直接获取全部字符串
并赋值0给spos
结束循环
sl.add(str);
spos
:=
0;
end;
str
:=
copy(str,epos
+
1,length(str)
-
epos);
end;
until
spos
=
0;
showmessage(sl.text);
finally
freeandnil(sl);
end;
end;