十六进制文件怎么保存?????????
procedure Tfrm_save.btn_saveClick(Sender: TObject);
var cn_file:TextFile; //这是文本文件格式,有没有16进制的文件格式????
s3:string;
s1:string;
begin
s3:='12345678';
AssignFile(Cn_file,'c:\diskinfo.sbj');
Reset(cn_file);
s1:=StrToHex(s3);
Rewrite(cn_file);
Writeln(cn_file,s1);
closefile(cn_file);
end;
function StrToHex(str:string):string;
var
I:Integer;
begin
for I:=1 to Length(str) do
begin
Result:=Result+IntToHex(Ord(str[i]),2);
end;
end;
保存完后怎样用ultraedit打开看到的十六进制不对啊??应该是00 BC 61 4E才对啊,怎么是
33 31 33 32 33 33 33 34 33 35 33 36 33 37 33 38啊???