delphi中取得文件编码,字符串编码的方法

这个单元提供了一组Delphi函数,用于检测文件和字符串的编码(如tfAnsi, tfUnicode, tfUtf8等),并实现不同编码间的转换。包括GetFileEncodeing获取文件编码,GetStrEncodeing获取字符串编码,以及UnicodeEncode/Decode进行Unicode编码解码,还有Gb2Big5和Big52Gb用于GB和Big5编码的转换。" 102949120,8088198,数据库查询之COUNT(*)与COUNT(1)深入解析,"['数据库查询', 'SQL', 'MySQL优化', '数据库理论', '数据统计']
摘要由CSDN通过智能技术生成

注意,这里的取字符编码仅仅对有标识的字符起作用,而有些没有标识的字符串要得知是什么编码可能要进行逐字符对比了 

 

unit EncodeUnit;

interface

uses
  SysUtils, Windows, Classes;

type
  TTextFormat = ( tfAnsi, tfUnicode, tfUnicodeBigEndian, tfUtf8 );

const
  TextFormatFlag: array [tfAnsi..tfUtf8] of Word = ( $0000,$FFFE,$FEFF,$EFBB );

  function GetFileEncodeing(const FileName: string): TTextFormat;
  function GetStrEncodeing(ABuffer: RawByteString): TTextFormat;
  function ConvertEncodeingA(Source, Destination: TEncoding; Buffer: AnsiString): AnsiString;
  function UnicodeEncode(Str: string; CodePage: integer): WideString;
  function UnicodeDecode(Str: WideString; CodePage: integer): string;
  function Gb2Big5(Str: string): string;
  function Big52Gb(Str: string): string;
  function WideStringToString(const ws: WideString; codePage: Word): AnsiString;
  function StringToWideString(const s: AnsiString; codePage: Word): Wide

  • 0
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值