Работа с UTF-8 кодировкой

Posted by maloy under Delphi

Levsha100

нужно в Delphi 2010 сделать вот что:
Прочитать файл в строку(кодировка UTF-8), сделать замену подстроки и снова записать в файл. Проблема в том, что у меня на каком-то этапе меняется кодировка и я не знаю как это исправить.

Вот мой код:

b:utf8String;

  Memo.Lines.LoadFromFile('Templates\temp.xml');
  b := Memo.Text;
  b:=StringReplace(b, UTF8Encode('PL1'),UTF8Encode('ТЕСТ'),[]);
  Memo.Text:= b;
  Memo.Lines.SaveToFile('Templates\temp.xml');

BDA

А если попробовать stringlist вместо memo?
UPD
Превращается в ansi все равно.
UPD2
Аватар уже написал.

var
  s1, s2: tstringstream;
  s: string;
begin
  s1 := tstringstream.Create('', TEncoding.UTF8);
  s1.LoadFromFile('1.txt');
  s := StringReplace(s1.DataString, UTF8Encode('PL1'), UTF8Encode('ТЕСТ'), []);
  s2 := tstringstream.Create(s, TEncoding.UTF8);
  s2.SaveToFile('2.txt');
  s1.Free;
  s2.Free;
end;

Аватар

Через TStringStream c TEncoding.UTF8

тема на форуме от 2013 года

Похожие статьи

• Дописать в файл (кодировка utf8) строку
• Как проверить файл на юникодность
• Перевести текст в кодировку utf8
• Конвертация из utf-8 в windows-1251
• Получить страницу из интернета и перекодировать её в cp1251
• Русский текст в консоли
• Ansi в UTF-8 и наоборот UTF-8 в Ansi
• Поиск подстроки в UTF-8
• Не удается отправить русские символы в POST запросе через IdHttp
• Как правильно отправить запрос на сайт?