Code:

{:Converts Unicode string to Ansi string using specified code page.

@param ws Unicode string.

@param codePage Code page to be used in conversion.

@returns Converted ansi string.

}

function WideStringToString(const ws: WideString; codePage: Word): AnsiString;

var

l: integer;

begin

if ws = ''then

Result := ''else

begin

l := WideCharToMultiByte(codePage,

WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,

@ws[1], - 1, nil, 0, nil, nil);

SetLength(Result, l - 1);

if l > 1then

WideCharToMultiByte(codePage,

WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,

@ws[1], - 1, @Result[1], l - 1, nil, nil);

end;

end; { WideStringToString }