P
pub66cn
Unregistered / Unconfirmed
GUEST, unregistred user!
有一个问题，怎么样把Edit框里面的内容转为二进制并写入文件里面。
例如我建立一个文本，在Edit框输入三个空格保存后，用UE打开显视的数据是00 00 00而不是20 20 20
例如我建立一个文本，在Edit框输入三个空格保存后，用UE打开显视的数据是00 00 00而不是20 20 20
N
newyj
Unregistered / Unconfirmed
GUEST, unregistred user!
只能说你存盘错了，
assignfile(txt,'ss.txt');
rewrite(txt);
writeln(txt,edit1.text);
closefile(txt);
assignfile(txt,'ss.txt');
rewrite(txt);
writeln(txt,edit1.text);
closefile(txt);
Z
zhengrong117
Unregistered / Unconfirmed
GUEST, unregistred user!
自己写程序转换啊 可以 一个一个 检测字符后 用汇编语言转换 啊
M
Milpas
Unregistered / Unconfirmed
GUEST, unregistred user!
空格的ASCII就是32,16进制的20啊,怎么会是00????
D
dey-999
Unregistered / Unconfirmed
GUEST, unregistred user!
字符转化为16进制并显示:
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i:integer;
begin
s:=' ';
i:=ord(s[1]);
s:=IntToHex(i,2);
showmessage(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i:integer;
begin
s:=' ';
i:=ord(s[1]);
s:=IntToHex(i,2);
showmessage(s);
end;
P
pub66cn
Unregistered / Unconfirmed
GUEST, unregistred user!
不好意思说得不够清楚，我的意思是想像一些十六进制的编辑软件一样，可以用00填充一段数据，填充后的数据为空的不可执行的，因而UE下显视为00[
]
]
A
abigfish
Unregistered / Unconfirmed
GUEST, unregistred user!
加个转化的,遇到20直接用00代替不就可以了吗?
另外
function IntToBin(Value: LongInt;Size: Integer): String; //十进制转换为二进制
var
i: Integer;
begin
Result:='';
for i:=Size downto 0 do begin
if Value and (1 shl i)<>0 then begin
Result:=Result+'1';
end else begin
Result:=Result+'0';
end;
end;
end;
另外
function IntToBin(Value: LongInt;Size: Integer): String; //十进制转换为二进制
var
i: Integer;
begin
Result:='';
for i:=Size downto 0 do begin
if Value and (1 shl i)<>0 then begin
Result:=Result+'1';
end else begin
Result:=Result+'0';
end;
end;
end;
P
pub66cn
Unregistered / Unconfirmed
GUEST, unregistred user!
[
]
]
P
pub66cn
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了
P
pub66cn
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。