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

最新推荐文章于 2020-09-26 19:24:51 发布

Im17benteng

最新推荐文章于 2020-09-26 19:24:51 发布

阅读量3.8k

点赞数

分类专栏： delphi散记文章标签： delphi function string integer buffer windows

本文链接：https://blog.csdn.net/Im17benteng/article/details/3820735

版权

这个单元提供了一组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