StringReplace косяк Delphi XE3 кто знает что делать?

[Suny-o]

В Delphi XE3

если в StringReplace установить оба флага rfReplaceAll, rfIgnoreCase

функция перестает понимать русские буквы и начинает глючить

(заменяя "Русские буквы" на ????? или другие неправильные символы), хотя заменяемую часть на русском продолжает понимать.

s2:=StringReplace(s1, 'Заменяемая часть', 'Русские буквы',[rfReplaceAll, rfIgnoreCase])

Было "АБВ" меняем на "яяя" получаем "yyy"
Было "абв" меняем на "ююю" получаем "???"

по отдельности
s2:=StringReplace(s1, 'Заменяемая часть', 'Русские буквы',[rfReplaceAll])
s2:=StringReplace(s1, 'Заменяемая часть', 'Русские буквы',[rfIgnoreCase])
работают корректно

[northener]

А исходная строка в какой кодировке? Это кому-нибудь известно?

[Suny-o]

Какая разница в какой - все работает нормально пока я оба флага [rfReplaceAll, rfIgnoreCase] не ставлю.
По моему кодировка ANSI, с юникодом программа вообще неработает.

[Serge_Bliznykov]

Сообщение от northener

А исходная строка в какой кодировке? Это кому-нибудь известно?

+1

а ещё, не исключено, что проблема напрямую связана с unicode...
AnsiString использовать не пытались?

попробуйте перевести вашу строку s1 в UpperCase, посмотрите на полученный результат. В зависимости от полученных результатов - и принимайте меры.

var 
  s111 : AnsiString;
....
  s111 := s1;
  
  s2:=StringReplace(s111, 'Заменяемая часть', 'Русские буквы',[rfReplaceAll, rfIgnoreCase]);

какой результат даёт?

[Suny-o]

var 
  s111 : AnsiString;
....
  s111 := s1;
  
  s2:=StringReplace(s111, 'Заменяемая часть', 'Русские буквы',[rfReplaceAll, rfIgnoreCase]);

Результат такой же - чувствую просто пакет надо поменять.

[Аватар]

В XE2 есть
System.AnsiStrings.StringReplace для AnsiString
System.SysUtils.StringReplace для UnicodeString
а еще System.WideStrUtils.WideStringRepla ce для WideString

в XE3 не думаю что по другому. Какой StringReplace у вас?

[Suny-o]

Я написал аналог StringReplace - точную копию FRstr, сейчас это часть библиотеки
QuickSortStr 2.0 - посмотреть FRstr можно здесь

Функция работает нормально - проверял на строках Memo4 Memo5
Но глюки остались те же, выяснилось что по какой то причине глючит
Writeln(f2,s2) - отладчик до момента записи показывает в списке переменных нормальную строку с корректной заменой букв строки s2 без глюков и кракозябр а уже после записи в файл происходит что то не понятное.

Можно предположить что и функция StringReplace работает корректно.

Есть ли функция - аналог Writeln(f2,s2)?

Пока мне не ясно что вообще происходит и где косяк - как я уже говорил если писать флаги для функции StringReplace по одиночке в файл записываются нормальные буквы тоже самое касается новой функции FRstr
s2:=FRstr(s1, FromS1, ToS2,[rfReplaceAll]);
s2:=FRstr(s1, FromS1, ToS2,[rfIgnoreCase]);
В такой постановке все работает нормально, но совместите эти два флага и появляется - ошибка.

[Suny-o]

Я уже написал функцию Чистилище для строки - я только выяснил что строковые переменные тут не причем с вероятностью 95%

//Функция чистилище - из самой себя делает чистую строку
function PurgatoryStr(s1:string):string;
const Source='0123456789~!@#$%^&*()_+|`!"№;%:?*()=\/,.<>{}[];:abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZабвгдеёжзиклмнопрстуфхцчшщъьыэюяАБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЮЪЬЫЭЮЯ'+chr(39);
var n,ns:integer;
begin
result:='';
for n := 1 to length(s1) do
  begin
    ns:=pos(s1[n],Source);
    result:=result+Source[ns];
  end;
end;

Не помогло глюк остался

[Suny-o]

Я окончательно разобрался с этим вопросом - я поставил Delphi XE5 и там все работает нормально.