好久没来，问个关于字符串相加的问题？

[西山小月]

现想分两次截取‘1999年12月’这个字符串，
使之最后显示为‘199912’，怎么办？
var
a:string;
b:string;
c:string;
begin
a:='1999年12月';
b:='1999年12月';
delete(a,5,5);
delete(b,1,6);
c:=b;
delete(c,3,2);
showmessage(a+c);
end;
为何显示出的a+c的值为‘1999 2’，而不是‘199912’呢？

[xzm2000]

试试这个方法，也许能行
var
s, d, t: string;
i: integer;
begin
d := '1999年12月';
s := '';
for i := 1 to length(d) do
begin
t := copy(s, i, 1);
if (t >= '0') and (t <= '9') then
s := s + t;
end;
showmessage(s);
end;

[cobi]

你的问题在于汉字是两个字节的，所以在截取时会出错！解决方法同意楼上的

[「已注销」]

我不明白为什么不用AnsiString.SubString()

[xhuayu]

同意cobi(小新国际)说的。