函数功能返回字符串偶位字符串
函数原型function DoubleStr(Str: string): string; //取字符串偶位数字符
var
i: Integer;
begin
Result := '';
for i := 2 to Length(Str) do
if i mod 2 = 0 then
Result := Result + Str[i];
end;