delphi截取字符串函数 DElphi字符串排序？
DElphi字符串排序？只要写一个函数，就会得到functionupendstr（Rstr:字符串)：string var i:整数str:字符串开始STR:=rstR//如果字符串的长度为奇数，则3
DElphi字符串排序？
只要写一个函数，就会得到functionupendstr（Rstr:字符串)：string var i:整数str:字符串开始STR:=rstR//如果字符串的长度为奇数，则3 ifodd（长度（rstR）），然后STR:=rstR“3”//forI:=1tolength（STR）div2 do result:=result STR[I*2]STR[I*2-1]end procedureForm1。按钮1单击（发件人：TObject)开始显示消息（upendStr（“abcdefg”）结束