A
archy
Unregistered / Unconfirmed
GUEST, unregistred user!
将一个包含回车(#13)和换行(#10)及其它ascii字符的加密文本
memoMiWen.lines.savetofile(a.txt)之后
(#13和#10就是#13和#10,在memoMiWen中表现为|符号,不换行),
若再打开(memoMiWen.lines.loadfromfile(a.txt)),则会因读到#13或#10而自动回车
换行,而我就是要让它是#13就读字符#13,不要自动换行,不然解密就不好解了。
恳请各位高手赐教,不胜感激。
怎样让它读到回车或换行时在memo中表现为字符呢?
参考:(仍无法完成要求)
procedure TfrmMain.btnOpen2Click(Sender: TObject);
Var str : string;s:Tstringlist;
i,n:integer ;
begin
if opendialog1.Execute then
begin
memo2.Lines.Clear;
filename:=opendialog1.FileName;
//memo2.Lines.LoadFromFile (filename);
s:=Tstringlist.Create;
s.LoadFromFile(filename);
n:=length(s.text) ;
for i:=1 to ndo
begin
if s.text=#13 then
str:=str+#$D // or#$D
else
if s.text=#10 then
str:=str+#$A
else
str:=str+s.text;
end;
memo2.Lines.Append (str);
s.free;
end;
end;
memoMiWen.lines.savetofile(a.txt)之后
(#13和#10就是#13和#10,在memoMiWen中表现为|符号,不换行),
若再打开(memoMiWen.lines.loadfromfile(a.txt)),则会因读到#13或#10而自动回车
换行,而我就是要让它是#13就读字符#13,不要自动换行,不然解密就不好解了。
恳请各位高手赐教,不胜感激。
怎样让它读到回车或换行时在memo中表现为字符呢?
参考:(仍无法完成要求)
procedure TfrmMain.btnOpen2Click(Sender: TObject);
Var str : string;s:Tstringlist;
i,n:integer ;
begin
if opendialog1.Execute then
begin
memo2.Lines.Clear;
filename:=opendialog1.FileName;
//memo2.Lines.LoadFromFile (filename);
s:=Tstringlist.Create;
s.LoadFromFile(filename);
n:=length(s.text) ;
for i:=1 to ndo
begin
if s.text=#13 then
str:=str+#$D // or#$D
else
if s.text=#10 then
str:=str+#$A
else
str:=str+s.text;
end;
memo2.Lines.Append (str);
s.free;
end;
end;