求：delphi里将中文字符串转化为快速码的函数？

Question

如：“中华人民共和国”转化为：“ZHRMGHG”
“供货商”转化为“GHS”的DELPHI的转化函数

Answer 1

这儿有个控件，倒是挺符合你的要求的，里面有Demo
http://bbs.2ccc.com/attachments/2004/sxfying_200491010447.rar

Answer 2

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;procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=GetPYindexChar(edit1.Text);
end;

Answer 3

顶，，，
unit HzSpell;
{ version 4.1}interfaceuses
  Windows, Messages, SysUtils, Classes;type
  THzSpell = class(TComponent)
  protected
    FHzText: String;
    FSpell: String;
    FSpellH: String;
    procedure SetHzText(const Value: String);
    function GetHzSpell: String;
    function GetPyHead: String;
  public
    class function PyOfHz(Hz: String): String;
    class function PyHeadOfHz(Hz: String): String;
  published
    property HzText: String read FHzText write SetHzText;
    property HzSpell: String read GetHzSpell;
    property PyHead: String read GetPyHead;
  end;{$I HzSpDat2.inc}procedure Register;function GetHzPy(HzChar: PChar; Len: Integer): String;
function GetHzPyFull(HzChar: String): String;
function GetHzPyHead(HzChar: PChar; Len: Integer): String;
function GetPyChars(HzChar: String): String;implementationprocedure Register;
begin
  RegisterComponents('System', [THzSpell]);
end;function GetHzPy(HzChar: PChar; Len: Integer): String;
var
  C: Char;
  Index: Integer;
begin
  Result := '';
  if (Len > 1) and (HzChar[0] >= #129) and (HzChar[1] >= #64) then
  begin
    //是否为 GBK 字符
    case HzChar[0] of
      #163:  // 全角 ASCII
      begin
        C := Chr(Ord(HzChar[1]) - 128);
        if C in ['a'..'z', 'A'..'Z', '0'..'9', '(', ')', '[', ']'] then
          Result := C
        else
          Result := '';
      end;
      #162: // 罗马数字
      begin
        if HzChar[1] > #160 then
          Result := CharIndex[Ord(HzChar[1]) - 160]
        else
          Result := '';
      end;
      #166: // 希腊字母
      begin
        if HzChar[1] in [#$A1..#$B8] then
          Result := CharIndex2[Ord(HzChar[1]) - $A0]
        else if HzChar[1] in [#$C1..#$D8] then
          Result := CharIndex2[Ord(HzChar[1]) - $C0]
        else
          Result := '';
      end;
      else
      begin  // 获得拼音索引
        Index := PyCodeIndex[Ord(HzChar[0]) - 128, Ord(HzChar[1]) - 63];
        if Index = 0 then
          Result := ''
        else
          Result := PyMusicCode[Index];
      end;
    end;
  end
  else if Len > 0 then
  begin
    //在 GBK 字符集外, 即半角字符
    if HzChar[0] in ['a'..'z', 'A'..'Z', '0'..'9', '(', ')', '[', ']',
      '.', '!', '@', '#', '$', '%', '^', '&', '*', '-', '+',
      '<', '>', '?', ':', '"'] then
      Result := HzChar[0]
    else
      Result := '';
  end;
end;function GetHzPyFull(HzChar: String): String;
var
  i, len: Integer;
  Py: String;
  function IsDouByte(C: Char): Boolean;
  begin
    Result := C >= #129;
  end;
begin
  Result := '';
  i := 1;
  while i <= Length(HzChar) do
  begin
    if IsDouByte(HzChar[i]) and (Length(HzChar) - i > 0) then
      len := 2
    else
      len := 1;
    Py := GetHzPy(@HzChar[i], len);
    Inc(i, len);
    if (Result <> '') and (Py <> '') then
      Result := Result + ' ' + Py
    else
      Result := Result + Py;
  end;
end;function GetHzPyHead(HzChar: PChar; Len: Integer): String;
begin
  Result := Copy(GetHzPy(HzChar, Len), 1, 1);
end;function GetPyChars(HzChar: String): String;
var
  i, len: Integer;
  Py: String;
  function IsDouByte(C: Char): Boolean;
  begin
    Result := C >= #129;
  end;
begin
  Result := '';
  i := 1;
  while i <= Length(HzChar) do
  begin
    if IsDouByte(HzChar[i]) and (Length(HzChar) - i > 0) then
      len := 2
    else
      len := 1;
    Py := GetHzPyHead(@HzChar[i], len);
    Inc(i, len);
    Result := Result + Py;
  end;
end;{ THzSpell }function THzSpell.GetHzSpell: String;
begin
  if FSpell = '' then
  begin
    Result := GetHzPyFull(FHzText);
    FSpell := Result;
  end
  else Result := FSpell;
end;function THzSpell.GetPyHead: String;
begin
  if FSpellH = '' then
  begin
    Result := GetPyChars(FHzText);
    FSpellH := Result;
  end
  else Result := FSpellH;
end;class function THzSpell.PyHeadOfHz(Hz: String): String;
begin
  Result := GetPyChars(Hz);
end;class function THzSpell.PyOfHz(Hz: String): String;
begin
  Result := GetHzPyFull(Hz);
end;procedure THzSpell.SetHzText(const Value: String);
begin
  FHzText := Value;
  FSpell := '';
  FSpellH := '';
end;end.
代码没有看懂，，，学习 ，，，

Answer 4

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; 
procedure TForm1.Button1Click(Sender: TObject);
var
str:widestring;
i:integer;
begin
str:='中华人民共和国供货商';
label1.Caption:='';
for i:=1 to length(str) do
label1.Caption:=label1.Caption+GetPYindexChar(str[i]);
end;

Answer 5

to :小和
word(hzchar[1])shl 8+word(hzchar[2]) of：哪个8是什么意思没有看明白，，，，