首页
论坛
课程
招聘
一个小工具源码(Delphi中文字符编码转换器)
2006-5-28 17:37 8516

一个小工具源码(Delphi中文字符编码转换器)

2006-5-28 17:37
8516
{*   我相信用DEDE反汇编Delphi程序的朋友都遇到过这样的问题。如果遇有中文字符程序时,在DEDE里会显示成像#12345#12345#12345之类的编码,所以为了看懂这些编码的意思,写了一个可以将Delphi的编码字符转回中文字符的小工具。如果需要,这个工具还可以将Delphi的中文字符再转回编码形式。
  下面的代码只是随便写的,给兄弟们见笑了。  *}


{* 下面的源码需要一个窗口(废话) ,三个Button,两个Edit就行了。  *}

unit Ascii;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:String;
    i:Integer;
    s3:WideChar;
begin
  s1 := Edit2.Text;
  Edit1.Text := '';
  s3 := #0;
  i := 1;
  if s1 = '' then
    Exit;
  while i <= length(s1) do
  begin
    s2 := '';
    if s1[i] = '#' then
    begin
      while i <= length(s1) do
      begin
        inc(i);
        if s1[i] <> '#' then
          s2 := s2 + s1[i]
        else
          break;
      end;
      s3 := WideChar(StrToInt(s2));
    end;
    Edit1.Text := Edit1.Text + s3;
    s3 := #0;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var s1:WideString;
    s2,s3:String;
    i:Integer;
begin
  s1 := Edit1.Text;
  s2 := '';
  s3 := '';
  if s1 = '' then
    Exit;
  for i := 1 to Length(s1) do
  begin
    s2 := '#' + IntToStr(Ord(s1[i]));
    s3 := s3 + s2;
  end;
  Edit2.Text := s3;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;

end.

【看雪培训】《Adroid高级研修班》2022年春季班招生中!

上传的附件:
收藏
点赞0
打赏
分享
最新回复 (6)
雪    币: 2170
活跃值: 活跃值 (39)
能力值: (RANK:410 )
在线值:
发帖
回帖
粉丝
小虾 活跃值 10 2006-5-28 17:40
2
0
雪    币: 202
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
xinix 活跃值 2006-5-28 18:20
3
0
不错

来个ansi

转unicode


呵呵
雪    币: 114
活跃值: 活跃值 (10)
能力值: ( LV9,RANK:530 )
在线值:
发帖
回帖
粉丝
lnn1123 活跃值 13 2006-5-28 19:29
4
0
不错,好象有一个API函数可以干这个
雪    币: 210
活跃值: 活跃值 (54)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
ww990 活跃值 1 2006-5-30 15:15
5
0
正需要,支持一下
雪    币: 4093
活跃值: 活跃值 (866)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
kagayaki 活跃值 2006-6-5 03:45
6
0
顶!!!!!!!!!!!!!!!!!!!!!!!!!
雪    币: 1613
活跃值: 活跃值 (33)
能力值: (RANK:1010 )
在线值:
发帖
回帖
粉丝
北极星2003 活跃值 25 2006-6-6 19:14
7
0
实用的工具,现在才看到
游客
登录 | 注册 方可回帖
返回