MBO писал(а):
Нужно сохранять именно в текстовый файл сами емодзи (юникодом)Схема для компиляторов FPC-32U или FPC-64U.
Add(MainForm,2953706,140,161)
{
Width=203
Height=161
link(onCreate,3656530:doReplace,[])
}
Add(Memo,3335973,357,175)
{
Left=15
Top=45
Width=150
Height=65
Font=[MS Sans Serif,23,0,0,1]
ScrollBars=3
}
Add(StreamConvertor,2710629,287,175)
{
Mode=3
Charset=5
link(onResult,3335973:doAdd,[])
}
Add(Replace,3656530,217,175)
{
SubStr="\\x"
link(onReplace,2710629:doConvert,[])
link(Str,14507148:Text,[])
}
Add(Edit,14507148,217,119)
{
Left=15
Top=10
Width=150
Text="\\xF0\\x9F\\x98\\x80"
}