cvcode.pas

delphi写的天一马,,学习用..希望有用的拿去

unit CVCode;

interface

 function BIG5toGB(value: string): string;

const
  MaxWord1=14758;
  data:array[0..13926] of word=(
 $2020,$A3AC,$A1A2,$A1A3,$2020,$A1A4,$A3BB,$A3BA,$A3BF,$A3A1,$A1C3,$A9A9,$A1A7,$A3AC,$2020,$A3AE,$2020,$A3BB,$A3BA,$A3BF,$2020,$A9A7,$A9A5,$A9A6,$A9A4,$2020,$A3DF,$2020,$2020,$A3A8,$A3A9,$A1D0,$2020,$A3FB,$A3FD,$2020,$2020,$A1B1,$A1B2,$2020,$2020,$A1BE,$A1BF,$2020,$2020,$A1B6,$A1B7,$A1C4,$A1C5,$A1B4,$A1B5,$2020,$A1A6,$A1B8,$A1B9,$2020,$2020,$A1BA,$A1BB,$2020,$2020,$A3A8,$A3A9,$2020,$2020,$A1B1,$A1B2,$A1AE,$A3A7,$A1B0,$A1B1,$2020,$A3A2,$A3E0,$2020,$A3A3,$A3A6,$A3AA,$A1F9,$A1EC,$2020,$A1F0,$A1F1,$A1F7,$A1F8,$A1F2,$A1EE,$A1EF,$A1F3,$A1F4,$A1F5,$A1F6,$2020,$2020,$2020,$2020,$A1A5,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$A3AB,$2020,$A1C1,$A1C2,$A1C0,$2020,$A3BC,$A3BE,$A3BD,$A1DC,$A1DD,$A1D9,$A1DE,$2020,$A1D4,$2020,$2020,$2020,$2020,$2020,$A1AB,$A1C9,$A1C8,$2020,$A1CF,$2020,$2020,$2020,$2020,$A1D2,$A1D3,$A1DF,$A1E0,$A1E2,$A1E1,$2020,$A1D1,$A1FC,$A1FD,$A1FB,$A1FA,$2020,$2020,$2020,$2020,$A1AC,$2020,$A3AF,$A3DC,$2020,$2020
,$A1E7,$A3A4,$2020,$A1E9,$A1EA,$A3A5,$2020,$A1E6,$2020,$2020,$2020,$A3C0,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$A1E3,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$A9EF,$A9DF,$A9D7,$A9CF,$A9C7,$A3FE,$2020,$2020,$2020,$A9B3,$A9B7,$A9BB,$A9BF,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$A3B0,$A3B1,$A3B2,$A3B3,$A3B4,$A3B5,$A3B6,$A3B7,$A3B8,$A3B9,$A2F1,$A2F2,$A2F3,$A2F4,$A2F5,$A2F6,$A2F7,$A2F8,$A2F9,$A2FA,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$A3C1,$A3C2,$A3C3,$A3C4,$A3C5,$A3C6,$A3C7,$A3C8,$A3C9,$A3CA,$A3CB,$A3CC,$A3CD,$A3CE,$A3CF,$A3D0,$A3D1,$A3D2,$A3D3,$A3D4,$A3D5,$A3D6,$A3D7,$A3D8,$A3D9,$A3DA,$A3E1,$A3E2,$A3E3,$A3E4,$A3E5,$A3E6,$A3E7,$A3E8,$A3E9,$A3EA,$A3EB,$A3EC,$A3ED,$A3EE,$A3EF,$A3F0,$A3F1,$A3F2,$A3F3,$A3F4,$A3F5,$A3F6,$A3F7,$A3F8,$A3F9,$A3FA,$A6A1,$A6A2
,$A6A3,$A6A4,$A6A5,$A6A6,$A6A7,$A6A8,$A6A9,$A6AA,$A6AB,$A6AC,$A6AD,$A6AE,$A6AF,$A6B0,$A6B1,$A6B2,$A6B3,$A6B4,$A6B5,$A6B6,$A6B7,$A6B8,$A6C1,$A6C2,$A6C3,$A6C4,$A6C5,$A6C6,$A6C7,$A6C8,$A6C9,$A6CA,$A6CB,$A6CC,$A6CD,$A6CE,$A6CF,$A6D0,$A6D1,$A6D2,$A6D3,$A6D4,$A6D5,$A6D6,$A6D7,$A6D8,$A8C5,$A8C6,$A8C7,$A8C8,$A8C9,$A8CA,$A8CB,$A8CC,$A8CD,$A8CE,$A8CF,$A8D0,$A8D1,$A8D2,$A8D3,$A8D4,$A8D5,$A8D6,$A8D7,$A8D8,$A8D9,$A8DA,$A8DB,$A8DC,$A8DD,$A8DE,$A8DF,$A8E0,$A8E1,$A8E2,$A8E3,$A8E4,$A8E5,$A8E6,$A8E7,$A8E8,$A8E9,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$D2BB,$D2D2,$B6A1,$C6DF,$C4CB,$BEC5,$C1CB,$B6FE,$C8CB
,$B6F9,$C8EB,$B0CB,$BCB8,$B5B6,$B5F3,$C1A6,$D8B0,$CAAE,$B2B7,$D3D6,$C8FD,$CFC2,$D5C9,$C9CF,$D1BE,$CDE8,$B7B2,$BEC3,$2020,$D2B2,$C6F2,$D3DA,$CDF6,$D8A3,$C8D0,$C9D7,$C7A7,$B2E6,$BFDA,$CDC1,$CABF,$CFA6,$B4F3,$C5AE,$D7D3,$E6DD,$E6DE,$B4E7,$D0A1,$DECC,$CAAC,$C9BD,$B4A8,$B9A4,$BCBA,$D2D1,$CBC8,$BDED,$B8C9,$DEC3,$DFAE,$B9AD,$B2C5,$B3F3,$D8A4,$B2BB,$D6D0,$B7E1,$B5A4,$D6AE,$D2FC,$D3E8,$D4C6,$BEAE,$BBA5,$CEE5,$BFBA,$C8CA,$CAB2,$D8EA,$C6CD,$B3F0,$C8D4,$BDF1,$BDE9,$D8C6,$D4AA,$D4CA,$C4DA,$C1F9,$D9E2,$B9AB,$C8DF,$D0D7,$B7D6,$C7D0,$D8D7,$D4C8,$B9B4,$CEF0,$BBAF,$C6A5,$CEE7,$C9FD,$D8A6,$B1E5,$B6F2,$D3D1,$BCB0,$B7B4,$C8C9,$CCEC,$B7F2,$CCAB,$D8B2,$BFD7,$C9D9,$D3C8,$B3DF,$CDCD,$B0CD,$BBC3,$D8A5,$B5F5,$D2FD,$D0C4,$B8EA,$BBA7,$CAD6,$D4FA,$D6A7,$CEC4,$B6B7,$BDEF,$B7BD,$C8D5,$D4BB,$D4C2,$C4BE,$C7B7,$D6B9,$B4F5,$CEE3,$B1C8,$C3AB,$CACF,$CBAE,$BBF0,$D7A6,$B8B8,$D8B3,$C6AC,$D1C0,$C5A3,$C8AE,$CDF5,$B1FB,$CAC0,$D8A7,$C7D2,$C7F0,$D6F7,$D5A7,$B7A6,$BAF5,$D2D4,$B8B6,$D7D0,$CACB
,$CBFB,$D5CC,$B4FA,$C1EE,$CFC9,$D8F0,$B3E4,$D0D6,$C8BD,$B2E1,$B6AC,$B0BC,$B3F6,$CDB9,$BFAF,$BCD3,$B9A6,$B0FC,$B4D2,$B1B1,$D4D1,$C7AA,$B0EB,$BBDC,$BFA8,$D5BC,$C3AE,$D8B4,$C8A5,$BFC9,$B9C5,$D3D2,$D5D9,$B6A3,$DFB5,$DFB6,$B5F0,$CBBE,$D8CF,$BDD0,$C1ED,$D6BB,$CAB7,$DFB3,$CCA8,$BEE4,$B0C8,$DFB7,$CBC4,$C7F4,$CDE2,$D1EB,$CAA7,$C5AB,$C4CC,$D4D0,$CBFC,$C4E1,$BEDE,$C7C9,$D7F3,$CAD0,$B2BC,$C6BD,$D3D7,$DBCD,$BAEB,$B8A5,$B1D8,$CEEC,$B4F2,$C8D3,$B0C7,$C6CB,$B3E2,$B5A9,$CAF5,$B1BE,$CEB4,$C4A9,$D4FD,$D5FD,$C4B8,$C3F1,$D8B5,$D3C0,$D6AD,$CDA1,$B7BA,$B7B8,$D0FE,$D3F1,$B9CF,$CDDF,$B8CA,$C9FA,$D3C3,$CBA6,$CCEF,$D3C9,$BCD7,$C9EA,$F1E2,$B0D7,$C6A4,$C3F3,$C4BF,$C3AC,$CAB8,$CAAF,$CABE,$BACC,$D1A8,$C1A2,$D8A9,$B6AA,$C6B9,$C5D2,$D8C0,$D8A8,$BDBB,$D2E0,$BAA5,$B7C2,$D8F8,$BBEF,$D2C1,$2020,$CEE9,$B7A5,$D0DD,$B7FC,$D6D9,$BCFE,$C8CE,$D1F6,$D8F2,$B7DD,$C6F3,$2020,$B9E2,$D0D7,$D5D7,$CFC8,$C8AB,$B9B2,$D4D9,$B1F9,$C1D0,$D0CC,$BBAE,$D8D8,$EBBE,$C1D3,$D0D9,$BFEF,$BDB3,$D3A1,$CEA3,$BCAA
,$C0F4,$CDAC,$B5F5,$CDC2,$D3F5,$2020,$B8F7,$CFF2,$C3FB,$BACF,$B3D4,$BAF3,$DFBA,$DFB8,$D2F2,$BBD8,$E0EE,$DBDA,$B5D8,$D4DA,$B9E7,$DBD8,$DBDD,$DBD7,$D9ED,$B6E0,$D2C4,$BFE4,$CDFD,$BCE9,$E5FA,$BAC3,$CBFD,$C8E7,$E5F9,$D7D6,$B4E6,$D3EE,$CAD8,$D5AC,$B0B2,$CBC2,$BCE2,$D2D9,$D6DD,$B7AB,$B2A2,$C4EA,$CABD,$B3DA,$C3A6,$E2E2,$C8D6,$D0E7,$CAF9,$B3C9,$BFDB,$BFB8,$CDD0,$CAD5,$D4E7,$D6BC,$D1AE,$D0F1,$C7FA,$D2B7,$D3D0,$D0E0,$C6D3,$D6EC,$B6E4,$B4CE,$B4CB,$CBC0,$C4CA,$C8EA,$BAB9,$CEDB,$BDAD,$B3D8,$CFAB,$C9C7,$CEDB,$D1B4,$2020,$2020,$BBD2,$C4B2,$EAF2,$B0D9,$D6F1,$C3D7,$E6F9,$F3BE,$D1F2,$D3F0,$C0CF,$BFBC,$B6F8,$F1E7,$B6FA,$EDB2,$C8E2,$C0DF,$BCA1,$B3BC,$D7D4,$D6C1,$BECA,$C9E0,$E2B6,$D6DB,$F4DE,$C9AB,$B0AC,$B3E6,$D1AA,$D0D0,$D2C2,$CEF7,$DAE4,$B4AE,$BAE0,$CEBB,$D7A1,$D8F9,$D9A2,$D8FA,$B0E9,$B7F0,$BACE,$B9C0,$D7F4,$D3D3,$D9A4,$CBC5,$C9EC,$B5E8,$D5BC,$CBC6,$B5AB,$D3B6,$D7F7,$C4E3,$B2AE,$B5CD,$C1E6,$D3E0,$D8FE,$B2BC,$D8FD,$B6D2,$BFCB,$C3E2,$B1F8,$D2B1,$C0E4,$B1F0,$C5D0,$C0FB
,$C9BE,$C5D9,$BDD9,$D6FA,$C5AC,$DBBE,$CFBB,$BCB4,$C2D1,$C1DF,$BFD4,$CDCC,$CEE1,$B7F1,$2020,$B0C9,$B4F4,$DFC0,$CEE2,$B3CA,$C2C0,$BEFD,$B7D4,$B8E6,$B4B5,$CEC7,$CEFC,$CBB1,$B3B3,$C4C5,$B7CD,$BAF0,$D1BD,$D6A8,$BAAC,$D2F7,$CCFD,$B4D1,$C0A7,$B6DA,$E0F1,$B7BB,$BFD3,$D6B7,$CCAE,$BEF9,$BFB2,$BBF8,$D7F8,$BBB5,$DBDF,$D7B3,$BCD0,$D7B1,$B6CA,$B7C1,$E6A4,$E5FE,$C3EE,$D1FD,$E5FB,$E6A5,$BCCB,$C8D1,$CDD7,$D0A2,$D7CE,$E6DA,$D8C3,$CDEA,$CBCE,$BAEA,$DECE,$BED6,$C6A8,$C4F2,$CEB2,$E1AA,$E1AF,$B2ED,$E1A7,$CED7,$CFA3,$D0F2,$B1D3,$B4B2,$CDA2,$C5AA,$B5DC,$EBC0,$D0CE,$E1DD,$D2DB,$CDFC,$BCC9,$D6BE,$C8CC,$B3C0,$BFEC,$E2EE,$E2EC,$BDE4,$CED2,$B3AD,$BFB9,$B6B6,$BCBC,$B7F6,$BEF1,$C5A4,$B0D1,$B6F3,$D5D2,$C5FA,$B0E2,$CAE3,$B3B6,$D5DB,$B0E7,$CDB6,$D7A5,$D2D6,$2020,$B8C4,$B9A5,$D8FC,$BAB5,$B8FC,$CAF8,$C0EE,$D0D3,$B2C4,$B4E5,$B6C5,$D5C8,$E8BD,$C9BC,$B8CB,$B8DC,$E8BC,$2020,$B2BD,$C3BF,$C7F3,$B9AF,$C9B3,$C7DF,$C9F2,$B3C1,$E3E4,$C5E6,$CDF4,$BEF6,$E3E5,$CCAD,$E3E7,$E3E9,$B3E5,$C3BB,$C6FB