写个小算法
给你一串字符串12345678
转换成 34127856 这样的
就是每两个字符互换位置
脑子笨 转不过来

[解决办法]
procedure TForm1.test(str:string);
var temp:string;
begin
temp := '';
while Length(str) >= 4 do
begin
temp := temp + Copy(str,3,2);
temp := temp + Copy(str,1,2);
Delete(str,1,4);
end;
temp := temp + str;
ShowMessage(temp);
end;
procedure TForm1.BtnClick(Sender: TObject);
begin
test(Txt.Text);
end;第一次在网上做这类题，这是我的做法