如何将一TXT文件转换为十六进制的格式？

[swei56]

如有一my.txt文件，如何将其用十六进制读取，然后将其保存为my.hex？

[swei56]

怎么没人回答？？？？？

[torble]

不懂你问什么

[Jerry529]

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

[swei56]

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

[swei56]

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

[swei56]

高手帮忙了

[redlegend_126_com]

用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就是你要的东西，你在保存为文件就可以了
给分吧！

[swei56]

Thanks!!!