DELPHI7的STRING默认是ANSI编码，加载UNICODE编码格式的TXT显示为乱码，解决方法如下：

procedure TForm1.Button1Click(Sender: TObject);
var
F:TFileStream;
S:WideString;
I:Integer;
FileName:string;
begin
FileName := ExtractFilePath(Application.ExeName)+'20151214003.txt';
F:=TFileStream.Create(FileName,fmOpenRead);
I:=F.Size;
SetLength(S,I div 2);
F.Read(S[1],I);
F.Free;
Delete(S,1,1);
Memo1.Text:=S;
end;

最新文章

1. HTML常用标签
2. gulp同步执行任务
3. mysql-data-dumper
4. PHP大文件存储示例，各种文件分割和合并(二进制分割与合并)
5. PL-SQL 存储函数和存储过程
6. Android-Application
7. ECMAScript继承
8. Android 服务端开发之开发环境配置
9. 如何测量一个嵌入式Linux系统的功耗/power dissipation/power wastage/consumption
10. JavaScript 覆盖document.createElement 方法 解决window.close在火狐下不兼容问题）
11. shrio初体验（1）
12. CocoaPods 更新慢&swift版本适配
13. IOS 固定定位底部input输入框，获取焦点时弹出的输入法键盘挡住input
14. android studio多渠道多包名多apk打包
15. 简单工厂模式--java代码实现
16. Education CodeForces Round 63 Div.2
17. magento 2 Check https://getcomposer.org/doc/articles/troubleshooting.md#memory-limit-errors for more info on how to handle out of memory errors.%
18. 简单配置umiJS学习笔记
19. NAP(Network Access Protection)
20. 20145311王亦徐 《网络对抗技术》 Web安全基础实践

热门文章

1. C# 传值和传引用 ( ref out in )
2. 全面学习ORACLE Scheduler特性(10)管理Chains
3. 303 Range Sum Query - Immutable 区域和检索 - 不可变
4. H5活动的一些事
5. leetcode375 Guess Number Higher or Lower II
6. 2017-12-04HTML布局＿div布局
7. JVM GC调优一则–增大Eden Space提高性能
8. WinRT ListView间隔变色(一)
9. nw.js开发第一个程序（html开发桌面程序exe）
10. 并发编程学习笔记(12)----Fork/Join框架