Перекодирование Utf-8 в windows-1251

Delphi , Синтаксис , Кодировки

Перекодирование Utf-8 в windows-1251

Данная функция будет полезна в случае если, по тем или иным причинам, нельзя применять, стандартную функцию UTF8Decode, например если программа будет запускаться под wine в UNIX-подобных системах.

Utf2WinTable : array [0..65, 0..1] of string = (
  (#208#144,#192), (#208#145,#193), (#208#146,#194),
  (#208#147,#195), (#208#148,#196), (#208#149,#197),
  (#208#129,#168), (#208#150,#198), (#208#151,#199),
  (#208#152,#200), (#208#153,#201), (#208#154,#202),
  (#208#155,#203), (#208#156,#204), (#208#157,#205),
  (#208#158,#206), (#208#159,#207), (#208#160,#208),
  (#208#161,#209), (#208#162,#210), (#208#163,#211),
  (#208#164,#212), (#208#165,#213), (#208#166,#214),
  (#208#167,#215), (#208#168,#216), (#208#169,#217),
  (#208#170,#218), (#208#171,#219), (#208#172,#220),
  (#208#173,#221), (#208#174,#222), (#208#175,#223),
  (#208#176,#224), (#208#177,#225), (#208#178,#226),
  (#208#179,#227), (#208#180,#228), (#208#181,#229),
  (#209#145,#184), (#208#182,#230), (#208#183,#231),
  (#208#184,#232), (#208#185,#233), (#208#186,#234),
  (#208#187,#235), (#208#188,#236), (#208#189,#237),
  (#208#190,#238), (#208#191,#239), (#209#128,#240),
  (#209#129,#241), (#209#130,#242), (#209#131,#243),
  (#209#132,#244), (#209#133,#245), (#209#134,#246),
  (#209#135,#247), (#209#136,#248), (#209#137,#249),
  (#209#138,#250), (#209#139,#251), (#209#140,#252),
  (#209#141,#253), (#209#142,#254), (#209#143,#255) );

function Utf8ToWin(s : string) : string;
var i : integer;
  res  :string;
begin
  res:=s;
  for I := 0 to 65 do
    if pos(Utf2WinTable[i,0],res)>0
      then res := StringReplace(res, Utf2WinTable[i,0], Utf2WinTable[i,1], [rfReplaceAll]);

  Result:=res;
end;

KAN

Статья Перекодирование Utf-8 в windows-1251 раздела Синтаксис Кодировки может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2010-05-20 11:17:55 :: re:Перекодирование Utf-8 в windows-1251

пользователь: Anvarbek.

Otlichnoye function !!!

:: 2015-11-08 17:24:46 :: re:Перекодирование Utf-8 в windows-1251

пользователь: Scipio.

Спасибо!

:: 2019-08-30 00:11:27.791017 :: re:Перекодирование Utf-8 в windows-1251

пользователь: ElizabethEsoniXC.

Hello. And Bye.

:: Главная :: Кодировки ::