freepascal.ru

Нужно записать содержимое Memo1 в файл.

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

  Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) + 'log.txt');

Сохраняет в UTF-8, а надо в ANSI, чтобы потом блокнот корректно отображал русские буквы.

Как записать в файл в кодировке ANSI?

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

st:=TStringList.Create;
st.Clear;
for i:= 0 to Memo1.Lines.Count -1 do
begin
  st.Add(UTF8ToAnsi(Memo1.Lines[i])); 
end;
st.SaveToFile(ExtractFilePath(ParamStr(0)) + 'log.txt');
st.Free;

где-то так... писалось в браузере без проверки.

Спасибо, работает!

Спасибо, исправил.

Можно намного быстрее (хотя и чуть менее надёжно):

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

st:=TStringList.Create;
st.Text:=UTF8ToAnsi(Memo1.Lines.Text);
st.SaveToFile(ExtractFilePath(ParamStr(0)) + 'log.txt');
st.Free;


daesher а можно пояснить, в чем чуть меньшая надежность?

В символах окончания строк

Ism писал(а):В символах окончания строк

В общем и в целом - да. В сочетании с UTF8 это может быть потенциально даже более опасно. Так, если, скажем, в конце третьей строки произошёл сбой последовательности UTF8, то первый способ просто даст сбой в третьей строке, а второй способ может сбить и всё последующее.

Спасибо за пояснения!