社区
非技术区
帖子详情
关于MEMO框读取字符的问题
youthnet
2007-10-31 03:59:11
我想问一下本人做的一个记事本 用的MEMO.lines.readfromfile ,这样读取读取文本文件没有问题,如果本人设置提取的文件是EXE程序或者是一幅图片,他只能读取前几个字符,而不能全部读取,虽然是乱码,系统自带的记事本就可以完全读取,请问有没有什么办法解决,让其能读入这些二进制 之类的文件!
谢谢!
...全文
92
13
打赏
收藏
关于MEMO框读取字符的问题
我想问一下本人做的一个记事本 用的MEMO.lines.readfromfile ,这样读取读取文本文件没有问题,如果本人设置提取的文件是EXE程序或者是一幅图片,他只能读取前几个字符,而不能全部读取,虽然是乱码,系统自带的记事本就可以完全读取,请问有没有什么办法解决,让其能读入这些二进制 之类的文件! 谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
13 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
youthnet
2007-11-14
打赏
举报
回复
说句实话 没看明白!! 呵呵!!
king_xing
2007-11-10
打赏
举报
回复
问题解决了,结贴给分吧
king_xing
2007-11-10
打赏
举报
回复
记住不能用TStringStream,会出错,速度也慢很多!
king_xing
2007-11-09
打赏
举报
回复
TAccessMS=Class(TMemoryStream);
Var
s: String;
fs: TFileStream;
mm: TMemoryStream;
//创建释放及异常处理略
SetLength(s,fs.size);
TAccessMS(mm).SetPointer(PChar(s),fs.size);
mm.Position := 0;
mm.Copyfrom(fs,0); //拷贝全部文件内容
//这里再加入处理字节值为0的代码,可以将其替换成'0',此处略
//现在S可直接用了
Memo1.Lines.Text := s;
立志做一个佳娃~
2007-11-09
打赏
举报
回复
顶一下!~
youthnet
2007-11-07
打赏
举报
回复
是EXE格式文件
guokan8686
2007-11-04
打赏
举报
回复
招聘 delphi 程序员(人数:2)
毕业两年以上
两年以上 delphi 工作经验
熟悉 sql server
sql 编写能力突出者优先
联系方式:
深圳中普达科技有限公司
0755 86170837
请将简历发至 guokan8686@163.com
ntrqz
2007-11-04
打赏
举报
回复
lines.readfromfile 是TstringList 的方法
你需用流的方式去读,去解析.
(可以先用utraledit打开,看看其格式)
youthnet
2007-11-03
打赏
举报
回复
似乎用流也不行的!!
youthnet
2007-10-31
打赏
举报
回复
啊!?!? 这么复杂?!!?
我晕,能不能给个示例代码?!
west3316
2007-10-31
打赏
举报
回复
Windows的记事本有个编码选择的下拉框,说明它是按照那些编码转化的。
brightyang
2007-10-31
打赏
举报
回复
memo1.Lines.LoadFromStream();
先把文件读入流
goldli
2007-10-31
打赏
举报
回复
可能要自己判断一下,然后用流方式读取
delphi中如何
读取
有逗号分割符数据
edit1.Text:=(GetDelimiteredStringN(
memo
1.text,',',1));//第3个*后的
字符
. edit2.Text:=(GetDelimiteredStringN(
memo
1.text,',',2));//第3个*后的
字符
. edit3.Text:=(GetDelimiteredStringN(
memo
1.text,',',3));//...
ASQLite 整合 DISQLite 魔改第一版 最大兼容 支持 D2009-DXE8 和 64 位平台 1
修正启用 SQLiteDateFormat 的情况下
读取
非正规日期
字符
串引起异常的 bug 查询语句中表名和字段名用中括号 [] 引括,可以使用 Index 之,等保留字段名 删除属性 CharacterEncode,一律按默认的 Uft-8 格式存取
字符
串...
ASQLite 整合 DISQLite 魔改第一版 最大兼容 支持 D2009-DXE8 和 64 位编译平台
修正启用 SQLiteDateFormat 的情况下
读取
非正规日期
字符
串引起异常的 bug 查询语句中表名和字段名用中括号 [] 引括,可以使用 Index 之,等保留字段名 删除属性 CharacterEncode,一律按默认的 Uft-8 格式存取
字符
串...
RTC解决中文乱码
RTC解决中文乱码 d := RtcStringToBytes(read);... else // 根据ContentType中charset的内容来
读取
数据
Memo
1.Lines.Text := Utf8Decode(RtcBytesToString(d)); //
Memo
1.Lines.Text := read; //直接获取是乱码
delphi通用函数单元一
{* 打开文件
框
} function FormatPath(APath: string; Width: Integer): string; {测试通过} {* 缩短显示不下的长路径名} function GetRelativePath(Source, Dest: string): string; {测试通过} {* 取两个目录的...
非技术区
828
社区成员
53,611
社区内容
发帖
与我相关
我的任务
非技术区
Delphi 非技术区
复制链接
扫一扫
分享
社区描述
Delphi 非技术区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章