Различные кодировки- считывание из файла.

[NikLik]

Собственно, сабж.
Надо считать информацию из файла(пример прикреплён).
Но названия песен считываются некорректно.
Каким образом можно загнать название песни в переменную(парсер уже есть, осталось с кодировкой разобраться)?

[alexBlack]

Попробуйте вот это:

function ConvertUTF8ToAnsi(S:String):String;
var L:integer;
    W:PWideChar;
begin
   L := MultiByteToWideChar(CP_UTF8, 0, PChar(S), -1, nil, 0);
   GetMem(W, L*2);
   MultiByteToWideChar(CP_UTF8, 0, PChar(S), -1, W, L);
   result := W;
   freeMem(W);
end;

procedure TForm4.FormCreate(Sender: TObject);
var F:TextFile;
    S:String;
begin
   AssignFile(F, 'Список воспроизведения1.txt');
   Reset(F);
   While not EOF(F) do begin
      ReadLn(F, S);
      S := ConvertUTF8ToAnsi(S);
      Memo1.Lines.Add(S);
   end;
   CloseFile(F);
end;

// Если вдруг не объявлена (не знаю когда она включена в System.pas)
function MultiByteToWideChar(CodePage, Flags: Integer; MBStr: PChar;
MBCount: Integer; WCStr: PWideChar; WCCount: Integer): Integer; stdcall;
external 'kernel32.dll' name 'MultiByteToWideChar';

[NikLik]

Благодарю, проблема решена