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

[Lifter]

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

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

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

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

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

[Padre_Mortius]

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

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;

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

[Lifter]

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

[Padre_Mortius]

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

[daesher]

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

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

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

[Lifter]

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

[Ism]

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

[daesher]

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

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

[Lifter]

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