Не отображаются русские буквы

Vadim1705 · Регистрация: 25.10.2015

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста. Есть форма, на ней 3 поля ввода и кнопка. В 1 и 2 поле вводится текст из русских букв(только русских букв, без других знаков), при нажатии на кнопку в 3 поле ввода выводится текст из русских букв, зависящий от 1 и 2 текста. Вот часть кода:

Delphi

1
2
3

//часть функции fcode
res[i]:=(alph[lnum]);
  fcode:=res;

Delphi

1	Edit2.Text:=fcode(Edit1.Text,Edit3.Text)

.
alph-строка из 33 букв в алф.порядке. Почему-то вместо русских букв выводятся знаки вопроса и неизвестные символы. Как исправить?

@volvo · 29.10.2015, 21:22

Работа с кириллицей в Лазарусе реализуется через специальные функции. В частности, чтобы получить i-ый символ строки - нужно использовать функцию UTF8Copy, а не обращаться к символу напрямую через []...

Vadim1705 · 29.10.2015, 22:32 **[ТС]**

Спасибо, теперь все работает.

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	29.10.2015, 21:22	2
	Работа с кириллицей в Лазарусе реализуется через специальные функции. В частности, чтобы получить i-ый символ строки - нужно использовать функцию UTF8Copy, а не обращаться к символу напрямую через []... 1

Vadim1705 10 / 10 / 7 Регистрация: 25.10.2015 Сообщений: 47
	29.10.2015, 22:32 [ТС]	3
	Спасибо, теперь все работает. 0