求助Delphi 写一个字节翻转

二宝

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

s0512

留个名，下午补代码~

格式天下

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

z____

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

s0512

 unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
type
  TForm1 = class(TForm)
    btn1: TBitBtn;
    edt1: TEdit;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
var dj:Integer=0;
{$R *.dfm}
procedure dh (var i:string);
begin
  asm
     mov ebx,0
     mov ecx,0ffffh
     mov ebx,i
     mov esi,[ebx]
     @s:mov al,[esi+1]
     cmp al,0
     je @ok
     xchg al,[esi]
     mov 1[esi],al
     add esi,2
     loop @s
     @ok:nop
   end;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
  s:string;
  i:byte;
begin
  s:=Trim(edt1.Text);
  dh(s);
  edt1.Text:=s;
end;
end.

s0512

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

2012-11-29 23:27 上传

点击文件名下载附件

D里使用的汇编~嘿嘿