Загрузка файла из ресурса с кириллицей в ResName

[Shouldercannon]

Доброго времени суток!
Есть *.rc-файл

А txt "Words\Rus\А.txt"
Б txt "Words\Rus\Б.txt"
В txt "Words\Rus\В.txt"
Г txt "Words\Rus\Г.txt"
Д txt "Words\Rus\Д.txt"

...
CurrentWord: string;
...
TxtStream := TResourceStream.Create(HInstance, PChar(CurrentWord), 'txt');
...

Имя ресурса на кириллице. Это работало в Delphi 7, в Delphi 10.1 из-за ввода Unicode стало вызывать ошибку: ресурс не найден.

[NetSpace]

а где у вас указано, какой именно из пяти ресурсов вы вызываете? А, Б, В, Г или Д?
попробуйте в качестве вызываемого имени использовать это - Chr(ваша буква), может, тогда сработает...

[Shouldercannon]

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

а где у вас указано, какой именно из пяти ресурсов вы вызываете? А, Б, В, Г или Д?
Весь русский алфавит (33 кнопки). Проект очень старый и не оптимизирован.
попробуйте в качестве вызываемого имени использовать это - Chr(ваша буква), может, тогда сработает...

Весь русский алфавит (33 кнопки). Проект очень старый и неоптимизированный.

procedure TForm1.BRAClick(Sender: TObject);
begin
  CurrentWord := 'А';
  Obrabotka;
end;
...
procedure TForm1.Obrabotka;
var
  TxtStream: TResourceStream;
  data: TStrings;
begin
  data := TStringList.Create;
  TxtStream := TResourceStream.Create(HInstance, PChar(CurrentWord), 'txt'); // Char - E2089 Invalid typecast
  data.LoadFromStream(TxtStream);
  FreeAndNil(TxtStream);
end;

[NetSpace]

ну, если неохота мучаться со старыми проектами и разбираться с кириллицей, тогда проще в файле ресурсов заменить кириллические буквы на их номера в алфавите. типа так:
1 txt "Words\Rus\1.txt"
2 txt "Words\Rus\2.txt"
3 txt "Words\Rus\3.txt"
4 txt "Words\Rus\4.txt"
5 txt "Words\Rus\5.txt"
....
до 33 буквы Я

[BLACK_RAIN]

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

тогда проще в файле ресурсов заменить кириллические буквы на их номера в алфавите.

Лучше на коды из таблицы ASCII. Так обращаться к ним будет намного проще.

[Shouldercannon]

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

Лучше на коды из таблицы ASCII. Так обращаться к ним будет намного проще.

С этим тоже не всё просто.
Решение: взятие Caption кнопки с кириллицей.
А - #1040; Б - #1041; В - #1042 и т.д.

[NetSpace]

я вот понимаю, что картинку, иконку, курсор, звук, файл, библиотеку, шрифт из ресурса берут. но чтоб буквы из ресурса или слова/текст... конечно, я не видел проект полностью и не знаю его особенностей, но кажется странным...

[BLACK_RAIN]

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

С этим тоже не всё просто.

почему?