读取一个字符,然后转换为ascii码就得了.

解决方案 »

  1.   

    将my.txt中的内容转换为十六进制,然后保存为my.hex
      

  2.   

    将my.txt中的内容转换为十六进制,然后保存为my.hex.
      

  3.   

    用assignfile,reset,blockread,blockwrite,就可以了,
    十进制到十六进制转换
    这样实现:
     var
      cfg:file;
      dat:byte;
      ddd:string;
      i:integer;
     assignfile(cfg,'c:\ddd.txt');
      reset(cfg,1);
    for i:=0 to filesize(cfg)-1 do begin
      seek(cfg,i);
      blockread(cfg,dat,1);
      ddd:=ddd+format('%0x',dat);
    end;
    closefile(cfg);
    这样ddd就是你要的东西,你在保存为文件就可以了
    给分吧!