ascii.pas

delphi 编码转换工具 很不错的东西

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.