Несколько лет назад я написал вот этот небольшой реферат про Unicode. На самом деле, идея такой работы возникла из вопросов, которые мне разные люди задавали по этому поводу как "компьютерщику". Что-то я, конечно, знал, но не очень упорядоченно. Тогда-то и возникла мысль сделать нечто похожее на "сборник фактов о Unicode". В итоге прочитало его, наверное, человека 2-3, да и получилось не очень. Решил разместить тут, вдруг пригодится. Про Unicode и почему проблем не стало меньше как бы реферат Disclaimer Это текст ни в коем случае не есть краткое введение или даже учебник по Unicode...

1. На форму из вкладки Standart выносим кнопки Button(1шт), Label(2шт), Edit (1шт) 2. Для компонента Label1 свойство Caption пишем: Введите текст 3. Для компонента Label2 свойство Caption пишем: В тексте 4. Для компонента Edit1 свойство Text делаем пустым 5. Для компонента Button1 свойство Caption пишем: Вычислить 6. Должно получиться как на рис.1 7. Для Button1 пишем код: procedure TForm1.Button1Click(Sender: TObject); var n: integer; s: string; begin n:=length(Edit1.Text); label2.Caption:='В тексте '; if n>20 then n:=n mod 10; case n of 1:s:=' символ'; 2...