var
s,xors:string;
i:integer;
SL:TStrings;
begin
SL:=TStringList.Create;
if opendialog1.Execute then
memo1.Lines.LoadFromFile(opendialog1.FileName);
s:=memo1.Text;
SetLength(xors,Length(s));
for i:=1 to length(s) do
xors[i]:=chr((ord(s[i])) xor (strtoint(edit1.Text)));
Sl.Add(xors);
sl.SaveToFile('e:\item.dat');
end;不论读入的数据多大,最多只能读取41.9K,是TEXT的问题吗?
s,xors:string;
i:integer;
SL:TStrings;
begin
SL:=TStringList.Create;
if opendialog1.Execute then
memo1.Lines.LoadFromFile(opendialog1.FileName);
s:=memo1.Text;
SetLength(xors,Length(s));
for i:=1 to length(s) do
xors[i]:=chr((ord(s[i])) xor (strtoint(edit1.Text)));
Sl.Add(xors);
sl.SaveToFile('e:\item.dat');
end;不论读入的数据多大,最多只能读取41.9K,是TEXT的问题吗?
解决方案 »
- delphi serversocket接收大量字符串时提示错误
- 能给我讲讲吗?
- 想用C#做一个QQ聊天机器人,求各位大侠指点或提供下相关资料
- 寻求控件:寻求一个可以选择背景图片,并可改变形状的Tpanel控件,或者可以让背景图的底色变透明的Tpanel控件?
- 关于套打走纸的问题
- 关于InstallShield 打包中的问题(数据库为SQL SERVER) 急
- ★★WM_WINDOWPOSCHANGING这个消息如何截获?
- 流 相关
- DELPHI写的远程控制源代码,要吗?
- 1。数据库程序安装的问题,我的程序用MSACCESS
- Mediaplayer 能不能播放DVD啊, 是不是 VOB那个文件?
- 猜谜,求救
st:TStream;
str:string;
i:integer;
SL:tstrings;
begin
if opendialog1.Execute then
st:=TFileStream.Create(opendialog1.FileName,fmOpenRead);
setlength(str,st.size);
st.Read(str[1],st.Size);
for i:= 1 to st.Size do
str[i]:=chr(ord(str[i]) xor strtoint(trim(edit1.text)));
sl:=TstringList.Create ;
sl.Add(str);
sl.SaveToFile('e:\item.dat');
st.Free;
end;试下这个