unicode to ansi

[Swarog]

что же в итоге делает уже придуманный велосипед?
по сути тоже самое. разве что в функцию уже передается готовый индекс,
по которому она возвращает символ из массива (а если не так, то как тогда?),
но индекс этот мы все-равно готовим вручную ( code := '$' + copy(code,3,4); )

Объясняя что там есть такое... в той кодирвке типа \u0410 указан код символа в шестнацетиричной системе счисления
да строкой code := '$' + copy(code,3,4); я готовлю к переводу в десятичный вид строки $0410 после чего это число скармливаю стандартной функции перевода строки в число на выходе получаем 1040 в десятичной системе счисления а дальше все просто, идет явное преобразование точнее это преобразование только для компилятора, на самом деле это число так и переносится в result. WideChar - это перечисляемый тип размером в два байта. После таких манипуляций компилятор уже думает что 1040 это код символа.
все это было показано для примера, путей оптимизации много.