函数功能

函数原型

函数功能

返回字符串偶位字符串

函数原型

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;