Перекодировка

[PavelNK]

Не судите строго, взял, то ли С-шную, то ли Паскалевскую, то ли какую-то другую, и тупо переписал на Клашу

[RaFaeL]

Спасибо, а у memset в данном случае какой прототип?
P.S. отбой, сам подобрал.

РАБОТАЕТ!

[Yufil]

memset здесь вроде как и не нужен,
с3[size(c3)] = '<0>' ; c4[size(c4)] = '<0>'

[RaFaeL]

Заменил, работать перестало, вернул как было

[Yufil]

Правильно, ибо нефиг давать советы в пятницу вечером
Там всю строку надо нулями зачистить, а я только последний символ
Типа c3[1 : size(c3)] = '<0>{250}'
Ещё бы кодовую страничку на 1251 поправить (возможно, GetACP() вызвать )
У меня есть похожая процедура, на входе HTML без кодировки, там символы выводятся как
<span style="font-family:'Arial';font-size:12pt;">&#1040;&#1073;&#1074;&#1075;&#1076;</span>,
а надо в windows-1251 (Clarion) или в utf-8 (Web) превратить..

[RaFaeL]

А, ну тогда

Код: Выделить всё

        c3 = all('<0>',size(c3))
        c4 = all('<0>',size(c4))
        

В почтовой библиотеке так, сделал для однообразия аналогично