试试这个方法,也许能行
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;
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货