CSDN博客

img buffalo

Unicode

发表于2004/9/28 10:13:00  545人阅读

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function AnsiToUnicode(Ansi: string): string;
    function UnicodeToAnsi(Unicode: string): string;
    function ReadHex(AString: string): integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.AnsiToUnicode(Ansi: string):string;

var

 s:string;

 i:integer;

 j,k:string[2];

 a:array [1..1000] of char;

begin

 s:='';

 StringToWideChar(Ansi,@(a[1]),500);

 i:=1;

 while ((a[i]<>#0) or (a[i+1]<>#0)) do begin

  j:=IntToHex(Integer(a[i]),2);

  k:=IntToHex(Integer(a[i+1]),2);

  s:=s+k+j;

  i:=i+2;

 end;

  Result:=s;

end;
function TForm1.ReadHex(AString:string):integer;

begin

 Result:=StrToInt('$'+AString)

end;


function TForm1.UnicodeToAnsi(Unicode: string):string;

var

 s:string;

 i:integer;

 j,k:string[2];

begin

 i:=1;

 s:='';

 while i<Length(Unicode)+1 do begin

  j:=Copy(Unicode,i+2,2);

  k:=Copy(Unicode,i,2);

  i:=i+4;

  s:=s+Char(ReadHex(j))+Char(ReadHex(k));

 end;

 if s<>'' then

  s:=WideCharToString(PWideChar(s+#0#0#0#0))

 else

  s:='';

 Result:=s;

end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(AnsiToUnicode('我们'));
  showmessage(UnicodeToAnsi('62114eec'));
end;

end.

阅读全文
0 0

相关文章推荐

img
取 消
img