求助Delphi 写一个字节翻转

二宝

输入框如 输入1234567890
输出框转换出 2143658709
求高手帮忙写一个  或者提供源码也行
先谢谢了

s0512

留个名，下午补代码~

格式天下

1. //假设有edit1,labei1两个控件，大概就是这样吧，delphi很久没用了，好多都忘了，凑合凑合啊，有问题留言
   
2. var
   
3. str,temp:String;
   
4. i:Integer;
   
5. begin
   
6. str :=edit1.text;
   
7. i :=0;
   
8. for i to Length(str)-1 do
   
9. begin
   
10.    if(i mod 2 == 1)
    
11.    temp :=str[i];
    
12.    str[i]:=str[i-1];
    
13.    str[i-1]:=str[i];
    
14. end;
    
15. 
    
16. label1.caption :=str;
    
17. end;

复制代码

z____

你的“1234567890”是16进制的还是10进制的？如果是10进制的照你那样写就不是单字节翻转，而是相邻两字节翻转

s0512

1. 
   
2. unit Unit1;
   
3. interface
   
4. uses
   
5.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
6.   Dialogs, StdCtrls, Buttons;
   
7. type
   
8.   TForm1 = class(TForm)
   
9.     btn1: TBitBtn;
   
10.     edt1: TEdit;
    
11.     procedure btn1Click(Sender: TObject);
    
12.   private
    
13.     { Private declarations }
    
14.   public
    
15.     { Public declarations }
    
16.   end;
    
17. var
    
18.   Form1: TForm1;
    
19. implementation
    
20. var dj:Integer=0;
    
21. {$R *.dfm}
    
22. procedure dh (var i:string);
    
23. begin
    
24.   asm
    
25.      mov ebx,0
    
26.      mov ecx,0ffffh
    
27.      mov ebx,i
    
28.      mov esi,[ebx]
    
29.      @s:mov al,[esi+1]
    
30.      cmp al,0
    
31.      je @ok
    
32.      xchg al,[esi]
    
33.      mov 1[esi],al
    
34.      add esi,2
    
35.      loop @s
    
36.      @ok:nop
    
37.    end;
    
38. end;
    
39. procedure TForm1.btn1Click(Sender: TObject);
    
40. var
    
41.   s:string;
    
42.   i:byte;
    
43. begin
    
44.   s:=Trim(edt1.Text);
    
45.   dh(s);
    
46.   edt1.Text:=s;
    
47. end;
    
48. end.

复制代码

s0512

字符串调换.rar (5.47 KB, 下载次数: 1)

2012-11-29 23:27 上传

点击文件名下载附件

D里使用的汇编~嘿嘿