TMD受不了, 不是问题的问题(50分)

写了一个函数作用是这样的
传入'19960612',返回'1996年06月12日'
function Txxcx_form.zhrq(str: string): string;
var
tempyear,tempmonth,tempday:string;
begin
str:=trim(str);
tempyear:=copy(str,1,4);
tempmonth:=copy(str,5,6);
tempday:=copy(str,7,8);
result:=tempyear+'年'+tempmonth+'月'+tempday+'日';
end;
最后返回的是回'1996年0612月12日'
真是出鬼了,难道这个函数有问题吗????

function Txxcx_form.zhrq(str: string): string;
var
tempyear,tempmonth,tempday:string;
begin
str:=trim(str);
tempyear:=copy(str,1,4);
tempmonth:=copy(str,5,2);
tempday:=copy(str,7,2);
result:=tempyear+'年'+tempmonth+'月'+tempday+'日';
end;

tempmonth:=copy(str,5,6);应为tempmonth:=copy(str,5,2);
tempday:=copy(str,7,8);应为tempday:=copy(str,7,2);

对对对,是偶写得脑子发傻了,不好意思不好意思

看来你是理解错Copy函数的第三个参数的意思了，
COPY（1，2，3）

1是指要操作的字符串。
2是指copy开始的位置
3是指要copy的长度而不是如你所想的结束位置！