delphi截取字符串COPY函数，比如123-456-789怎么截取呢？望高手回答一下，在下感激不尽啊

Question

如题所述

Answer 1

真对这个问题感觉用StringReplace比Copy效率更高一些。

var
a, b: string;
begin
a:='123-456-789';
b:=StringReplace(a, '-', '', [rfReplaceAll]);
Caption :=b;
end;

Answer 2

a :='123-456-789';
s:=copy(a,1,3)+copy(a,5,3);+copy(a,9,3);追问

但是前提是不知道-前后有多少字符啊

追答

用posEx函数 求出-的位置 结合copy函数就可以了

参考资料：http://blog.163.com/longermusket@126/blog/static/172820681201032095556512/

Answer 3

COPY(字符串内容,开始的位数,到第几位结束);
a:='123-456-789';
b:=copy(a,1,3) 显示为 123
b:=copy(a,1,4) 显示为 123-
b:=copy(a,1,5) 显示为 123-4

Answer 4

2楼得方法是最正确得办法