为汉语名字生成首字母助记码

{生成字符串的助记码 }

Function GetZJM(Value: String):String;
var
  I, L: Integer;
  C: array[0..1] of Char;
  R: Char;
begin
  Result := '';
  L := Length(Value);
  I := 1;
  while I <= (L - 1) do
  begin
    if Value[I] <= #128 then
    begin
      Result := Result + Value[I];
      Inc(I);
    end
    else if Value[I] < #160 then
    begin
      Result := Result + Value[I];
      Inc(I,2);
    end
    else
    begin
      C[0] := Value[I];
      C[1] := Value[I + 1];
      R := GetHZM(C);
      if R <> #0 then
      Result := Result + R;
      Inc(I, 2);
    end;
  end;
  if I = L then
    Result := Result + Value[L];
end;

{获取汉字字符串的拼音码}

Function GetHZM(Value: array of char): Char;
begin
  Result := #0;
  case Byte(Value[0]) of
  176:
    case Byte(Value[1]) of
    161..196: Result := 'A';
    197..254: Result := 'B';
    end;
  177: Result := 'B';
  178:
  case Byte(Value[1]) of
    161..192: Result := 'B';
    193..205: Result := 'C';
    206: Result := 'S';
    207..254: Result := 'C';
  end;
  179: Result := 'C';
  180:
    case Byte(Value[1]) of
    161..237: Result := 'C';
    238..254: Result := 'D';
    end;
  181: Result := 'D';
  182:
    case Byte(Value[1]) of
    161..233: Result := 'D';
    234..254: Result := 'E';
    end;
  183:
    case Byte(Value[1]) of
    161: Result := 'E';
    162..254: Result := 'F';
  end;
  184:
    case Byte(Value[1]) of
    161..192: Result := 'F';
    193..254: Result := 'G';
    end;
  185:
    case Byte(Value[1]) of
    161..253: Result := 'G';
    254: Result := 'H';
    end;
  186: Result := 'H';
  187:
    case Byte(Value[1]) of
    161..246: Result := 'H';
    247..254: Result := 'J';
    end;
  188..190: Result := 'J';
  191:
    case Byte(Value[1]) of
    161..165: Result := 'J';
    166..254: Result := 'K';
    end;
  192:
    case Byte(Value[1]) of
    161..171: Result := 'K';
    172..254: Result := 'L';
    end;
  193: Result := 'L';
  194:
    case Byte(Value[1]) of
    161..231: Result := 'L';
    232..254: Result := 'M';
    end;
  195: Result := 'M';
  196:
    case Byte(Value[1]) of
    161..194: Result := 'M';
    195..254: Result := 'N';
    end;
  197:
    case Byte(Value[1]) of
    161..181: Result := 'N';
    182..189: Result := 'O';
    190..254: Result := 'P';
    end;
  198:
    case Byte(Value[1]) of
    161..217: Result := 'P';
    218..254: Result := 'Q';
    end;
  199: Result := 'Q';
  200:
    case Byte(Value[1]) of
    161..186: Result := 'Q';
    187..245: Result := 'R';
    246..254: Result := 'S';
    end;
  201..202: Result := 'S';
  203:
    case Byte(Value[1]) of
    161..249: Result := 'S';
    250..254: Result := 'T';
    end;
  204: Result := 'T';
  205:
    case Byte(Value[1]) of
    161..217: Result := 'T';
    218..254: Result := 'W';
    end;
  206:
    case Byte(Value[1]) of
    161..243: Result := 'W';
    244..254: Result := 'X';
    end;
  207..208: Result := 'X';
  209:
    case Byte(Value[1]) of
    161..184: Result := 'X';
    185..254: Result := 'Y';
    end;
  210..211: Result := 'Y';
  212:
    case Byte(Value[1]) of
    161..208: Result := 'Y';
    209..254: Result := 'Z';
    end;
  213..215: Result := 'Z';
  216..247:
    Result := ChnPy[Byte(Value[0])][Byte(Value[1]) - 160];
  end;
end;