DELPHI7加载UNICODE编码格式的TXT显示为乱码的解决方法
2015-12-21 08:29
393 查看
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;
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;
相关文章推荐
- Delphi中调用API函数经验点滴
- delphi如何获得当前操作系统语言环境
- Delphi获取与设置系统时间格式,即GetLocaleInfo和SetLocaleInfo
- Delphi按名字调用方法高级解决方案
- delphi7-》delphi2010 中文乱码
- delphi(客户端) socket 与 PHP_socket(服务器) 通信的例子
- 如何解决Delphi读取Mysql的Text字段出现乱码的情况
- Delphi数据类型
- Delphi 7.0编写程序访问JAX-WS提供的WebService问题
- delphi7的快捷键
- delphi ide插件大全
- WM_SYSCOMMAND包括很多功能,比如:拖动左边框、拖动标题栏、滚动条滚动、点击最小化、双击标题栏——Delphi 通过事件代替了大部分常用的消息,所以Delphi 简单、易用、高效
- Delphi ClientDataSet复制记录
- Delphi 子界类型定义
- Delphi BMP-JPG
- delphi TADOQuery 第二次查询,即使用Filter在结果集中再次筛选
- Delphi与Windows 7下的用户账户控制(UAC)机制
- 字符串-delphi
- delphi 屏蔽任务栏,屏蔽热键
- Delphi程序调用C#.Net编译的DLL并打开窗体(详解)