摘要:
{生成字符串的助记码 }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 #0 then Result := Result + R; Inc(I, 2); end; end; if I = L then Result := Result + Value[L];end;{获取汉字字符串的拼音码}Function GetHZM(Value: ar 阅读全文