Как сделать замену символов в Memo на личные?

[Зод]

Есть не большой файлик символов (приват юзер) хочу программно сделать замену букв на символы. Как это понятно здесь нет привязки символа к букве это должна делать функция.
Мне нужно искать как я понял так: смотреть на символ в Memo далее менять его на какой я хочу по коду символа на нужный в моем приватном? И как тогда определить коды личных символов?

[Кольша]

функция stringreplace(s,b,a,[rfreplaceall]);вернет string
s:строка в которой менять
b:что менять
a:на что менять

[Зод]

Эм...как бы вопрос на что менять то? Функция о замене валялась где то а вот как узнать коды символов в личном шрифте? Ведь там не просто буквы вот как например в ворде выделил и поменял шрифт там значки, и каждому значку свой код по идеи. В таблице символов это отображается как U+0002 и т.д. а в Делфи как будет? И еще хотел спросить если файл шрифта с символами перекинуть на чужой комп вместе с текстовым файлом переделанным, на нем он нормально ведь прочитается?

[Кольша]

не понятно немного вам нужно шрифт в программу свой загрузить ? если да то не давно такая тема обсуждалась на форуме

[Кольша]

вот она

[Зод]

Здесь скорее и шрифт и перенос его и замена.
Ну вот ладно я загрузил шрифт в программу.
Пишу обработку Button:

Memo2.Text:=(stringreplace(Memo2.Text,'й','2x',[rfreplaceall]));

НО вместо 2х хочу заменить на символ из шрифта. Если просто включить таблицу символов (xp) и скопировать нужный значок Делфи не распознает его и напишет ?
Вопрос в том как на не знакомый символ для Делфи произвести замену в Мемо?
Ну вот более понятно может будет:
Я открываю редактор личных символов и рисую единственный символ, какуе-нибудь карякулу а теперь хочу что бы моя программа в Мемо1 заменила все буквы "а" на эту карякулу. Вот в чем суть.
Или если я захочу заменить все буквы русские на их аналоги на английском (но с учетом что делфи не знает американский шрифт)

Если произвести просто команду Memo2.Font.Name:='XXX'; то просто будет применен новый шрифт к тексту а у меня там просто набор символов, это как бы нет связки с буквами.

[Кольша]

кодировка символа? если utf8 то так

var
t:Tstringlist;
begin
t:=Tstringlist.create;
t.loadfromfile('****');
Memo2.Text:=utf8toansi(stringreplace(Memo2.Text,'й',t.text[позиция символа],[rfreplaceall]));

возможны опечатки

[Зод]

А что грузить в переменную?)
код нужного мне символа в таблице Юникода U+E005: Private use
Как-то так, не уже ли нельзя как-то просто заменить букву на нужный мне код?
Вообще если я в мемо даже загружи на прямую текстовый файл в котором есть этот символ то в мемо ни чего похожего не будет. Видимо по стандарту не поддерживает такие коды, это как то загрузить наверно в программу нужно. У меня есть файл *tte что с ним делать я не знаю.

[Кольша]

скиньте файл

[Зод]

http://www.sendspace.com/file/b9u1pn