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單擊（發(fā)件人：TObject)開始顯示消息（upendStr（“abcdefg”）結束