Замена символов в строке

[*vmr]

Кодировка между USC-2 и 1251 работает также как и в Делфи.
А для UTF-8 используйе функции UTF8Decode\UTF8Encode

Т.е. для ANSI производится перекодирование константных строк, а для UTF-8 нет?
Приехали...


ЗЫ: может точно автор забыл указать кодировку сорцов?

[Sergei I. Gorelkin]

При указании {$codepage utf8} строковые литералы, содержащие не-ascii символы считаются (по крайней мере, версией 2.3.1) WideString, хранятся как WideString, а при их присвоении AnsiString производится перекодировка.

[Mr.Smart]

При указании {$codepage utf8} строковые литералы, содержащие не-ascii символы считаются (по крайней мере, версией 2.3.1) WideString, хранятся как WideString, а при их присвоении AnsiString производится перекодировка.

Покапавшись в исходниках нашол файлы с сопоставлением кодовых таблиц с уникодом (source/rtl/ucmaps/). Которые загружаются функцией loadunicodemapping.

Подскажите а как fpc в рантайме делает преобразование динамически формируемых строк? Что в бинарник включается таблица перекодировки?

[Sergei I. Gorelkin]

В рантайме - в винде вызывается WideCharToMultibyte()/MultiByteToWideChar(), в линуксе и ему подобных - iconv(). Таблицы перекодировок в бинарник не включаются.

[Troublemaker]

При указании {$codepage utf8}

Обязательно проверю, спасибо. Может именно в этом и грабли. Но!

s:widestring
s:='Хрен вам!" //кодировка исходника - utf8
LeftStr(s,1) вовсе не равно "Х"!

[Brainenjii]

Uses ...LCLproc;
...
Var
S: String;
Begin
S := 'Хрен вам';
ShowMessage(UTF8Copy(S, 1 ,1));
Close;
end;
...

[Troublemaker]

UTF8Copy

Идея, спасибо. Тоже проверю

Добавлено спустя 17 минут 42 секунды:

{$codepage utf8}

Попробовал. Исходники - и так в utf-8. Получилось то же самое, что я писал в теме "где мои тексты???"

Добавлено спустя 1 час 14 минут 23 секунды:
Пока сделал так, работает:

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

function ReplaceCharByNum(s,c:string;p:Integer):string;
begin
  ReplaceCharByNum:=UTF8Copy(s,1,p-1)+c+UTF8Copy(s,p+1,Length(s)-p);
end;
...
    s:=Format('** %2.2D%2.2D %-.30S',[ComData.MyType,ComData.ID,ComData.Desc]);
    s:=ReplaceCharByNum(s,'Т',1);

Не в восторге, я, правда, от того, что 'T' - это строка, а не символ. Зато делает то, что я сказал: меняет 1 символ в указанной позиции на другой.

[Sergei I. Gorelkin]

s:widestring
s:='Хрен вам!" //кодировка исходника - utf8
LeftStr(s,1) вовсе не равно "Х"!

А так:

uses strutils;
...
if strutils.LeftStr(s) = widechar('X') then...
?

Но вообще вся эта катавасия несколько досаждает...

[Troublemaker]

if strutils.LeftStr(s) = widechar('X')

Не пробовал, но где в вашем коде количество символов, которые нужно взять слева? А мне вовсе не обязательно брать самый первый символ в строе, мне нужен произвольный, независимо от того, сколько байтов он занимает. И я сильно сомневаюсь, что из всех участников форума только я один работаю со строками и только у меня одного встала задача замены символа.

"вовсе не равно" - это попробуйте из widestring-a c кириллицей leftstr-ом выделить первый символ. Один символ (байт) вам и вернется. Вместо двух положенных.

Катавасия, говорите? Вернитесь в тему "где мои тексты" и почитайте радостные отклики любителей utf-a, о том, какое счастье наступило в 0.9.26. с приходом великой утээфизации.

[Sergei I. Gorelkin]

Я там в спешке забыл про второй аргумент у LeftStr. Он имеется в виду равный единице.

Добавлено спустя 9 часов 6 минут 18 секунд:
...отредактировать свое сообщение уже не дает ну ладно.

Тут фишки вот в чем:
1) В модуле sysutils есть ф-ция LeftStr, работающая с AnsiString, а в модуле strutils - она же для WideString. Если не подключить strutils, то все молча скомпилируется со вставкой неявного преобразования wide->ansi, и результат будет неправильным. На линуксе. А на винде - правильным, потому что в ней системная кодировка однобайтовая (!!!).
2) Иногда компилятор не совсем понимает, какую из перегруженных ф-ций вызывать (см. багрепорт 11327). В этом случае иногда помогает внушение в виде явного указания типа аргумента, отсюда и widechar('Х').

Вот потому и катавасия - вызвав одну-единственную ф-цию, нужно лезть проверять на разных системах, да еще и в ассемблерный код желательно заглянуть (и utf-8 тут как бы ни при чем, за исключением того, что это системная кодировка в линуксе).

Добавлено спустя 2 минуты 43 секунды:
...оказывается, предыдущее сообщение таки редактируется. Шайтан, однако...