delphi 怎样实现字符串 奇偶 位字符交换位置 ( 积分: 5 )

M

mawei0913_green

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-05

• #1

有个字符串：s='3168954621'
我想实现奇偶位字符的位置交换，得到s='1386596412'
请各位高人，指教，谢谢！

 

Z

ztf86781163

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-05

• #2

function Chang( Str : string): string ;
var
tmp : string ;
i : Integer ;
begin
SetLength(tmp ,Length( Str )) ;
for i := 1 to Length( Str ) do
if i mod 2 =1 then
tmp :=Str [ i+1]
else tmp :=Str [ i - 1] ;

result := tmp ;
end;

 

M

mawei0913_green

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-05

• #3

各位高人,怎么没人回答呀?望高人能给予帮助,谢谢!

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-05

• #4

分太少，观望中，提示一下用xor可以大大加快速度。

 

M

mawei0913_green

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-05

• #5

有好的咱们加分可以商量呀?请高人指教
在此谢谢 TO:ztf86781163你的函数是对的

 

M

mawei0913_green

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-05

• #6

接受答案了.