Как меня достала это кодировка!

[Айдар]

Как меня достала это кодировка! сколько пишу софт, так все время упираюсь в кодировку, например сайт http://www.cgsoft.ru/
получаю так:

cod:string;
cod:=idHTTP1.get('http://www.cgsoft.ru/);
memo1.Text:=cod;

Вместо русских букв, фигня какая-то, вообще какой алгоритм исправления?

[Mifody]

версия Delphi какая.
Просто на Delphi 7 - все Ок (причем тупо Ваш код скопировал)

[Pasha_Sh]

Сообщение от Mifody

версия Delphi какая.
Просто на Delphi 7 - все Ок (причем тупо Ваш код скопировал)

у меня версия delphi седьмая, но та же хрень

[shanluu]

Действительно забавный случай.
у меня Embarcadero , также как и у ТС иероглифы.
ansitoutf8 как и utf8toansi не помогает

[Айдар]

вообщем проблема решена этим

function RussianToUnicode(S: String): String;
     var Wrd:Word;
       pW,pR:PWord;
       len:Integer;
     begin
       pW:=@S[1];
       len:=Length(S);
       SetLength(Result,len);
       pR:=@Result[1];
       while Len<>0 do begin
         Wrd:=pW^;
         case Wrd of
           $C0..$DF,$E0..$FF:pR^:=Wrd+$0350;
           else pR^:=Wrd;
         end;
         inc(pW);
         inc(pR);
         dec(Len);
       end;
     end;

[Айдар]

С этим я разобрался, а вот когда отправляю запрос на dle сайт тоже эти ироглифы кто знает как дальше действовать? делфи 10