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;

• ·石家庄睿欣化工有限公司
• ·9·29美国沃尔夫公交车甩出公路事故
• ·河北亿客隆进出口贸易有限公司
• ·GetCurrentDir
• ·河北森杰房地产开发有限公司
• ·衡水大营大有商场
• ·公司行为能力
• ·呼张铁路客运专线
• ·灵隐寺月夜
• ·斯塔霍洛茨基