alt键小工具

it2022-05-09  32

  alt键+数字转成字符已经不是什么新鲜东西了 我写了个小程序点击下载,方便查询汉字的unicode编码

源码(PASCAL):

program alt;var    s:string;    i,res:integer;begin    writeln('                             Alt键加数字→汉字');    writeln('                                                               by noanti');    writeln;    write('    Input a string:');    readln(s);    for i:=1 to length(s) div 2 do    begin      write('        ',s[i*2-1],s[i*2],' : ');      writeln(ord(s[i*2-1]) shl 8+ord(s[i*2]));    end;    readln;end.

转载于:https://www.cnblogs.com/noanti/archive/2011/10/21/2220710.html


最新回复(0)