Как сохранить текст из memo в кодировке UTF-8?

@zlodey4ik · Регистрация: 06.03.2013

Студворк — интернет-сервис помощи студентам

Приветствую!
Нужна Ваша помощь. Мне надо сохранить текст из memo1 в кодировке UTF-8.
Процедура сохранения вот(работает, но кодировка ansi)

Code
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button4Click(Sender: TObject);
var
ext: String;
begin
 with SaveDialog1, Memo1 do
      if Execute then
    begin
      if FilterIndex=1
        then ext:='.sma';
      Memo1.Lines.SaveToFile(FileName+ext);
    end;
end;

Кодировку менять пробывал так, не работает.

Code
1
memo1.Text:=AnsiToUtf8(memo1.Text);

Как можно еще реализовать?(Delphi 2010)

@volvo · 06.03.2013, 19:55

Начиная с D2009 можно выбирать нужную кодировку:

Delphi
1
  Memo1.Lines.SaveToFile(filename, TEncoding.UTF8);

DenNik · 16.07.2014, 13:02

UI, а как определить, в какой кодировке текстовый файл?

@volvo · 16.07.2014, 13:18

Стандартными средствами - никак (ну, в смысле, нет такой функции, которая могла бы определить кодировку с такой же легкостью, как выше указывалась кодировка результирующего файла). Можно воспользоваться сторонними библиотеками, например Charset detector

DenNik · 16.07.2014, 13:51

UI, в справке Delphi встречал упоминание как сделать при помощи TEncoding, только толком не разобрался

@volvo · 16.07.2014, 14:05

Этот (XE и выше):

Delphi
1
2
3
4
5
6
7
8
  if OpenDialog1.Execute then
  with TStringList.Create do
  try
    LoadFromFile(OpenDialog1.FileName);
    ShowMessage(Encoding.EncodingName);
  finally
    Free;
  end;

? Он не всегда корректен. Скажем, у меня на машине с ANSI-кодировкой Win1255 он определяет кодировку файла, сохраненного в 1251 как эту самую Win1255... UTF8 определяется правильно...

@mss · 16.07.2014, 15:18

Delphi
1
2
3
4
5
6
7
8
s : RawByteString;
fs: TFileStream;
..
s := memo1.Text;
SetCodePage(s, CP_UTF8, True);
fs := TFileStream.Create('UTF8EncodedText.txt', fmCreate);
fs.WriteBuffer(s[1], Length(s));
fs.Free;

DenNik · 17.07.2014, 09:26

mss, я делал так

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm2.Button2Click(Sender: TObject);
var
  Data: RawByteString;
  fs: TFileStream;
begin
  Data:= UTF8Encode(Memo1.Text);
  fs:= TFileStream.Create('e:\test.txt',fmCreate);
  fs.WriteBuffer(Data[1],Length(Data));
  fs.Free;
end;

только у меня не получилось, потому что забыл написать [1]! теперь сработало.

еще хочу спросить. что означает определение

RawByteString = type AnsiString($ffff);
чем эта строка отличается от обычной AnsiString?

@mss · 17.07.2014, 09:36

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

чем эта строка отличается от обычной AnsiString?

Кроме значения служебного поля CodePage - ничем.
Но по значению этого поля RTL при манипуляциях со строками (например, копирование) принимает решения о неявных преобразованиях кодировок символов.

В случае с CodePage = $FFFF содержимое строки при ее считывании трактуется as is и никакие преобразования над кодировкой символов источника не осуществляются.

murderer · 17.07.2014, 09:39

RawByteString = type AnsiString($ffff);

Это в какой версии Delphi?

В Delphi7 похожим образом обозначаются строки фиксированного размера (статические массивы)

Delphi
1
s: string[25];

DenNik · 17.07.2014, 09:43

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

Это в какой версии Delphi?

у меня 2010

в общем, протестировал три способа
1. SetCodePage
2. UT8Encode
3. TStringlist.SaveToFile(filename,TEncodin g.UTF8)

все сохраняют коректно, только последний способ на три байта больше файл. вероятно, добавляет BOM, верно?

@mss · 17.07.2014, 09:54

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

Это в какой версии Delphi?

С юникодовой линейки это вроде бы пошло ..

Добавлено через 31 секунду

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

добавляет BOM, верно?

Верно

Добавлено через 55 секунд

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

последний способ на три байта больше

Потому и предложил вариант с файлстримом, чтобы лишнее в файл не лепить

Добавлено через 1 минуту

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

1. SetCodePage
2. UT8Encode

то ли 1 внутри вызывает 2, то ли наоборот (следует уточнить), но суть и алгоритм преобразований при этом одни и те же

DenNik · 17.07.2014, 10:18

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

то ли 1 внутри вызывает 2, то ли наоборот (следует уточнить)

рылся в исходниках, ниче непонятно, т.к. Ctrl+Click в модуле System почему-то не работает, а по поиску влом.

@mss · 17.07.2014, 10:52

DenNik, если не шибко озабочен ловлей блох в производительности - забей.
Главное понимание того что оба способа делают фактически одно и тоже.

Ощутимая разница лишь в том, что Utf8Encode возвращая результат делает минимум на одну операцию перераспределения памяти больше, нежели SetCodePage, получающая строку-источник по ссылке.

DenNik · 17.07.2014, 11:05

mss, а с другой стороны, для SetCodePage я вначале присвою переменной строку, я для Utf8Encode нет, т.е. эта лишняя операция производится вне функции кодирования

@tasman82 · 29.09.2014, 16:26

Delphi
1
2
3
4
5
6
begin
//  лайны туда, лайны сюда
 
  memo1.Lines.DefaultEncoding:=memo1.Lines.Encoding.UTF8;
  memo1.Lines.SaveToFile('filename.ext');
end;

с advmemo сработало, должно сработать с обычным memo

P.S. писал редактор XVM для танков, размер файла получался один в один с оригиналом

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

DenNik Житель Земли 3004 / 3026 / 390 Регистрация: 26.07.2011 Сообщений: 11,465 Записей в блоге: 1
	16.07.2014, 13:02
	UI, а как определить, в какой кодировке текстовый файл? 0

@volvo Супер-модератор 33187 / 21484 / 8232 Регистрация: 22.10.2011 Сообщений: 36,863 Записей в блоге: 12
	16.07.2014, 13:18
	Стандартными средствами - никак (ну, в смысле, нет такой функции, которая могла бы определить кодировку с такой же легкостью, как выше указывалась кодировка результирующего файла). Можно воспользоваться сторонними библиотеками, например Charset detector 1

DenNik Житель Земли 3004 / 3026 / 390 Регистрация: 26.07.2011 Сообщений: 11,465 Записей в блоге: 1
	16.07.2014, 13:51
	UI, в справке Delphi встречал упоминание как сделать при помощи TEncoding, только толком не разобрался 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	17.07.2014, 10:52
	DenNik, если не шибко озабочен ловлей блох в производительности - забей. Главное понимание того что оба способа делают фактически одно и тоже. Ощутимая разница лишь в том, что Utf8Encode возвращая результат делает минимум на одну операцию перераспределения памяти больше, нежели SetCodePage, получающая строку-источник по ссылке. 1

DenNik Житель Земли 3004 / 3026 / 390 Регистрация: 26.07.2011 Сообщений: 11,465 Записей в блоге: 1
	17.07.2014, 11:05
	mss, а с другой стороны, для SetCodePage я вначале присвою переменной строку, я для Utf8Encode нет, т.е. эта лишняя операция производится вне функции кодирования 0