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

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置：> 看雪学院专区 > Win32/Win64编程

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

作者:小虾时间:2006-12-15 14:32 出处:pediy.com 责编:月夜寒箫

摘要：一个小工具源码（Delphi中文字符编码转换器）

{* 　　我相信用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.

所上传文件

widestringtoasscii.rar (上传时间2006-05-28,17:37,161.6 KB,117 次点击)

关闭本页