在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
这里指的文本是用于Windows系统中的扩展名为.txt的文件。 Notepad(记事本)只支持四种格式:ANSI/Unicode/Unicode big endian/UFT-8,在Delphi中如何判断与读取这些不同格式的文本呢? 首先,不同编码的文本,是根据文本的前两个字节来定义其编码格式的。定义如下: ANSI: 无格式定义; 知道了各种编码格式的区别,写代码就容易了,以下是我在一个软件中写的处理代码: type TTextFormat=(tfAnsi,tfUnicode,tfUnicodeBigEndian,tfUtf8); const TextFormatFlag:array[tfAnsi..tfUtf8] of word=($0000,$FFFE,$FEFF,$EFBB); function WordLoHiExchange(w:Word):Word;register; asm XCHG AL, AH end; { TextFormat返回文本编码类型,sText未经处理的文本 } procedure ReadTextFile(const FileName: string; var TextFormat: TTextFormat; var sText:string); var w:Word; b:Byte; begin with TFileStream.Create(FileName,fmOpenRead or fmShareDenyNone) do try Read(w,2); w:=WordLoHiExchange(w);//因为是以Word数据类型读取,故高低字节互换 if w = TextFormatFlag[tfUnicode] then TextFormat:= tfUnicode else if w = TextFormatFlag[tfUnicodeBigEndian] then TextFormat:= tfUnicodeBigEndian else if w = TextFormatFlag[tfUtf8] then begin Read(b,1);//这里要注意一下,UFT-8必须要跳过三个字节。 TextFormat:=tfUtf8; end else begin TextFormat:=tfANSI; Position:=0; end; SetLength(sText,Size-Position); ReadBuffer(sText[1],Size-Position); finally Free; end; end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论