delphi tcp utf8_解决Delphi7的自带的UTF-8编码转换函数BUG

Delphi7及其以下版本的VCL 只支持Ansi, 所以... WideString 与UTF8String (定义与AnsiString 相同) 并没有办法正确的在VCL 中显示

Delphi7自带的utf-8转换函数遇到其无法识别的字符串就返回空。

用以下转换函数可以解决这个bug

unit util_utf8;

interface

uses Windows;

type

UTF8String = AnsiString;

function AnsiToWide(const S: AnsiString): WideString;

function WideToUTF8(const WS: WideString): UTF8String;

function AnsiToUTF8(const S: AnsiString): UTF8String;

function UTF8ToWide(const US: UTF8String): WideString;

function WideToAnsi(const WS: WideString): AnsiString;

function UTF8ToAnsi(const S: UTF8String): AnsiString;

implementation

function AnsiToWide(const S: AnsiString): WideString;

var

len: integer;

ws: WideString;

begin

Result:=‘‘;

if (Length(S) = 0) then

exit;

len:=MultiByteToWideChar(CP_ACP, 0, PChar(s), -1,