DELPHI 读取TXT文件unicode乱码

于 2020-04-04 08:32:47 发布
阅读量2.2k 收藏 3
点赞数 1
CC 4.0 BY-SA版权
分类专栏： delphi 文章标签： delphi
原文链接：https://blog.youkuaiyun.com/weixin_30343157/article/details/95786403

var slr: TStringList;
  F:TFileStream;
  S:WideString;
  i: integer;
const
  FileName='TalkList.txt';
begin
  F:=TFileStream.Create(FileName,fmOpenRead);
  I:=F.Size;
  SetLength(S, I div 2);
  F.Read(S[1],I);
  F.Free;
  Delete(S,1,1);
  m_haoma.Text:=S;
end.

delphi中的unicode转换
zisongjia的博客
05-13 1103
花47星币买的，没有用上，分享到这里，供大家参考！ delphi7调用delphi2009生成的dll文件会出现乱码问题。是unicode的原因 终于找到了转换函数 function AnsiToUnicode(s:string):WideString; var lpWideChar:PWideChar; len:Integer; begin len := ( Length(s) + 1 ) * 2; GetMem(lpWideChar, len); ZeroMemory(lpWideChar, len
Delphi中UTF-8,Unicode格式转换
08-06
delphi7调用delphi2009生成的dll文件会出现乱码问题。是unicode的原因 终于找到了UTF-8、Unicode格式转换函数
Delphi读写UTF-8、Unicode格式文本文件 .mht
06-10
Delphi读写UTF-8、Unicode格式文本文件 .mht
DELPHI用TextFile创建文件，中文乱码
cohn37970的博客
04-18 1503
今天用DELPHI7开发导出TXT文件，发现导出的文件中文是乱码，代码如下： Append(FileT); Writeln(FileT, '中国'); 最后发现由于...
Delphi操作Unicode字符
蓝色的雨
08-15 4547
===================================Delphi：=================================================== 当前版本(2007)中的默认状态下, String 就是 AnsiString 在 Delphi 2009 中: string = UnicodeString; (同样: PString = PUnicod
Delphi 处理 Windows 下的文本文件的 Unicode 的问题
pcplayer的博客
09-10 1564
用 Delphi 写了个程序，在 Windows 底下，加载一个文本文件，查里面的字符串。 文本文件，随手用 Windows 的记事本编辑了一个。 程序运行起来，测试这个文本文件，正常。 但是，某天我把 Windows 的系统语言设置为英语，再次跑这个程序，加载上述文本文件时，出错了，查不到应该有的字符串了。 用记事本打开那个文本文件一看，里面的中文字符串是乱码。这才想起来，Windows...
DELPHI7加载UNICODE编码格式的TXT显示为乱码的解决方法
weixin_34234829的博客
01-08 2400
DELPHI7的STRING默认是ANSI编码，加载UNICODE编码格式的TXT显示为乱码，解决方法如下： procedure TForm1.Button1Click(Sender: TObject);var F:TFileStream; S:WideString; I:Integer; FileName:string;begin FileName := ExtractFilePa...
解决 Delphi XE (2010，2009) 里的UTF8乱码问题！
编程小战
02-01 7051
Delphi 后续 Unicode 版本中， 一些单元里碰到UTF8编码字符，如果我们可能没有安装西欧的一些字符集，单元有可能显示错误，用delphi右键菜单 File Format->UTF8也未必能修复好。 如图：     正是因为 Delphi 单元不认识UTF8字符集，导致单引号被吃掉，编译异常！   这个时候，千万不要随便修改或保存该单元文件。将该单元拖到 NodePad
Delphi XE 的Uincode IniFiles单元
12-10
`TIniFiles`组件是Delphi标准库中的一个部分，它提供了一种方便的方式来读取、写入和管理.ini配置文件。这些文件通常用于存储应用程序的设置和偏好，因为它们简单易用，且跨平台兼容性良好。在Delphi XE之前，`...
Delphi_用流来读取TXT文件
09-19
这是一个Delphi_用流来读取TXT文件的方法以及代码
Delphi中读写TXT文件
07-26
如何在Delphi中读写TXT文件
delphi TextFile文件操作
01-07
delphi TextFile文件操作，初学者可以参考参考
Delphi 判断文本文件的编码格式并读取内容
百万软件
04-03 1415
这里指的文本是用于Windows系统中的扩展名为.txt的文件。 Notepad（记事本）只支持四种格式：ANSI/Unicode/Unicode big endian/UFT-8，在Delphi中如何判断与读取这些不同格式的文本呢？ 首先，不同编码的文本，是根据文本的前两个字节来定义其编码格式的。定义如下： ANSI： 无格式定义； Unicode： 前两个字节为FFFE； Unicode bi...
NativeXml的中文支持
weixin_30954607的博客
05-01 212
一般XML的编码格式设置成UTF8比较通用，下面演示使用UTF8编码方式存储和处理包含中文的XML字符串（文件）。 1.设置启用内置的widestring支持 NativeXml内部使用ANSI string和UTF8编码的string两种字符串类型。如果要让NativeXml能够解析widestring字符串的话，直接将TNativeXml的Utf8Encoded属性设置为True。如下： ...
RichEdit 乱码的问题
weixin_34348174的博客
12-28 824
查看文章 VC中在对话框上使用Rich Edit控件前一定要用AfxInitRichEdit()初始化RichEdit环境. 2008年07月24日 星期四 13:49 1.设置edit只读属性 方法一： m_edit1.SetReadOnly(TRUE); 方法二：...
Delphi 判断文本文件的编码格式
weixin_30408675的博客
07-22 646
这里指的文本是用于Windows系统中的扩展名为.txt的文件。 Notepad（记事本）只支持四种格式：ANSI/Unicode/Unicode big endian/UFT-8，在Delphi中如何判断与读取这些不同格式的文本呢？ 首先，不同编码的文本，是根据文本的前两个字节来定义其编码格式的。定义如下： ANSI： 无格式定义；Unicode： 前两个字节为FFFE；Unicode...
Delphi读写UTF-8、Unicode格式文本文件
weixin_33708432的博客
02-12 181
2019独角兽企业重金招聘Python工程师标准>>> ...
delphi2007 读取得unicode文本显示出来时乱码?
jacknes009的专栏
07-04 1807
正好今天在编程序，把我写的读写unicode及utf-8的函数上传到这里。 utf8Head:   Array[0..2] of Char = (#239,#$bb,#$bf); unicodeHead: Array[0..1] of Char = (#255,#$fe); // read utf8 file function ReadUtf8File(const filena
delphi读取windows控制台内容乱码
最新发布
09-19
Delphi作为一款基于Object Pascal语言的集成开发环境（IDE），其本身并不直接支持Windows控制台（Command Prompt）的内容读取，因为它的主要应用是在图形用户界面（GUI）开发上。然而，如果你想从命令行获取信息并处理可能出现的乱码问题，可以借助第三方库或者通过操作系统的API间接实现。 1. **使用第三方组件**：例如，你可以使用TThread、TProcess或者ShellExecute等组件，结合System.SysUtils里的ReadAllText函数，读取cmd窗口的输出，然后对编码进行转换，如将ANSI字符串转为UTF8或其他合适的编码格式。 ```pascal uses SysUtils, StdCtrls; function ReadConsoleOutput(const FileName: string): string; var Process: TProcess; begin Result := ''; // 创建进程 Process.Create( nil, PChar(FileName), // 指定程序路径 nil, SW_HIDE, // 窗口模式 True // 生成新进程 ); try // 读取输出 Result := ReadAllText(Process.StandardOut); // 解码乱码 (假设是从ANSI到UTF8) Result := EncodeString(Result, 'UTF8'); finally Process.Free; end; end; ``` 记得安装适当的支持Unicode的组件包。 2. **系统API**：例如，`CreateProcess` API和`GetStdHandle`函数可以用于创建和管理子进程，并通过`ReadFile`读取输出。同样，需要处理好字符编码问题。 为了避免乱码，关键是要了解控制台输出的实际编码，通常情况下，Windows控制台默认可能是ANSI（取决于本地设置）。如果文件或输出源使用的是非ASCII字符集，比如UTF-8，就需要在读取和显示时正确地解析编码。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值