Извечная проблема lazarus кириллица и юникод

[Максим]

Проверяйте кодировку всех строк, конкатенацию которых вы производите. В вашем случае она должна быть UTF8.

[Apromix]

В Windows у меня значение ParamStr(0) отображается знаками вопросов (текст "Новая папка"):

laz0003472916.png

Как с этим бороться?

[GAMER]

SysToUTF8

[Apromix]

Спасибо. Еще вопрос. Вот код:

Код: Выделить всё

  SL := TStringList.Create;
  SL.LoadFromFile(Path + 'file_utf-8.txt');
  ShowMessage(SL[0]);
  SL.Free; 

Вот что получаю (квадратик вначале)...

laz000347244578.png

Как правильно?

[GAMER]

SL.Strings[0]

[Apromix]

Это не то! Что SL[0], что SL.Strings[0] - результат один. Strings по-моему стоит default.

[GAMER]

А что внутри файла?

[Apromix]

В кодировке UTF-8:

Код: Выделить всё

Строка 1
Строка 2
Строка 3

[Mr.Smart]

что выведет конструкция вида:

Код: Выделить всё

ShowMessage(IntToHex(Ord(SL[0][1]),2));

?

[Apromix]

Вотъ:

laz379804.png

Добавлено спустя 21 минуту 19 секунд:
Ага, разобрался Первый знак - сигнатура юникода. Она может быть или не быть. При сохранении в редакторе можно поставить соответ. птичку. Я правильно понимаю? Она позволяет узнать, является ли файл utf8?

[Mr.Smart]

Всё ясно. У вас в файле содержится так называемая BOM метку.

[Apromix]

Да, вот еще код, который определяет ее наличие и удаляет, если сигнатура есть.

Код: Выделить всё

  if (Copy(SL[0], 1, 3) = #239#187#191) then
  begin
    Tmp := SL[0];
    Delete(Tmp, 1, 3);
    SL[0] := Tmp;
  end;