DoubleStr

DoubleStr用來返回字元串偶位字元串。

基本介紹

• 外文名：DoubleStr
• 所屬學科：計算機

函式功能

返回字元串偶位字元串

函式原型

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;