K
kaolaboy
Unregistered / Unconfirmed
GUEST, unregistred user!
调用文件:
unit hanzi;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function getstr(resstr:string):string;stdcall;
external 'GethanziIndex.dll' ;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=getstr(trim(edit1.Text));
end;
end.
dll文件:
library GethanziIndex;
uses
SysUtils,
Classes;
{$R *.res}
function GetPYIndexChar(hzchar: string): char;
begin
case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
$B0A1..$B0C4: result := 'A';
$B0C5..$B2C0: result := 'B';
$B2C1..$B4ED: result := 'C';
$B4EE..$B6E9: result := 'D';
$B6EA..$B7A1: result := 'E';
$B7A2..$B8C0: result := 'F';
$B8C1..$B9FD: result := 'G';
$B9FE..$BBF6: result := 'H';
$BBF7..$BFA5: result := 'J';
$BFA6..$C0AB: result := 'K';
$C0AC..$C2E7: result := 'L';
$C2E8..$C4C2: result := 'M';
$C4C3..$C5B5: result := 'N';
$C5B6..$C5BD: result := 'O';
$C5BE..$C6D9: result := 'P';
$C6DA..$C8BA: result := 'Q';
$C8BB..$C8F5: result := 'R';
$C8F6..$CBF9: result := 'S';
$CBFA..$CDD9: result := 'T';
$CDDA..$CEF3: result := 'W';
$CEF4..$D188: result := 'X';
$D1B9..$D4D0: result := 'Y';
$D4D1..$D7F9: result := 'Z';
else
result := char(0);
end;
end;
function getstr(resstr:string):string;stdcall; (函数的目的:如果输入的是英语或数字就保持不变,如果是汉字就去汉字首字母)
var
i, j: integer;
str1, str2, res: string;
begin
str1 := resstr;
j := 0;
i := 1;
while i <= length(resstr) do
begin
if (str1 in ['a'..'z', 'A'..'Z', '1'..'9', '0', '#', '.', '!', '@', '#', '$', '%', '^', '&', '*', '(', ')','`','/','-','=','+','/','|',';',':','?']) then
begin
res := res + str1;
j := j + 1;
i:=i+1;
continue;
end;
str2 := str1[2 * i - 1 - j] + str1[2 * i - j];
res := res + trim(getpyindexchar(str2));
i:=i+2;
j:=j+2;
end;
result :=res;
end;
exports
getstr;
begin
end.
在函数getstr()返回值的时候有时会报invalid pointer operation的错误,输入单个数字
如'1','a',就会报错
unit hanzi;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function getstr(resstr:string):string;stdcall;
external 'GethanziIndex.dll' ;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=getstr(trim(edit1.Text));
end;
end.
dll文件:
library GethanziIndex;
uses
SysUtils,
Classes;
{$R *.res}
function GetPYIndexChar(hzchar: string): char;
begin
case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
$B0A1..$B0C4: result := 'A';
$B0C5..$B2C0: result := 'B';
$B2C1..$B4ED: result := 'C';
$B4EE..$B6E9: result := 'D';
$B6EA..$B7A1: result := 'E';
$B7A2..$B8C0: result := 'F';
$B8C1..$B9FD: result := 'G';
$B9FE..$BBF6: result := 'H';
$BBF7..$BFA5: result := 'J';
$BFA6..$C0AB: result := 'K';
$C0AC..$C2E7: result := 'L';
$C2E8..$C4C2: result := 'M';
$C4C3..$C5B5: result := 'N';
$C5B6..$C5BD: result := 'O';
$C5BE..$C6D9: result := 'P';
$C6DA..$C8BA: result := 'Q';
$C8BB..$C8F5: result := 'R';
$C8F6..$CBF9: result := 'S';
$CBFA..$CDD9: result := 'T';
$CDDA..$CEF3: result := 'W';
$CEF4..$D188: result := 'X';
$D1B9..$D4D0: result := 'Y';
$D4D1..$D7F9: result := 'Z';
else
result := char(0);
end;
end;
function getstr(resstr:string):string;stdcall; (函数的目的:如果输入的是英语或数字就保持不变,如果是汉字就去汉字首字母)
var
i, j: integer;
str1, str2, res: string;
begin
str1 := resstr;
j := 0;
i := 1;
while i <= length(resstr) do
begin
if (str1 in ['a'..'z', 'A'..'Z', '1'..'9', '0', '#', '.', '!', '@', '#', '$', '%', '^', '&', '*', '(', ')','`','/','-','=','+','/','|',';',':','?']) then
begin
res := res + str1;
j := j + 1;
i:=i+1;
continue;
end;
str2 := str1[2 * i - 1 - j] + str1[2 * i - j];
res := res + trim(getpyindexchar(str2));
i:=i+2;
j:=j+2;
end;
result :=res;
end;
exports
getstr;
begin
end.
在函数getstr()返回值的时候有时会报invalid pointer operation的错误,输入单个数字
如'1','a',就会报错