memo lazarus

Ответ от Ўрий Копнин[гуру]
Родная кодировка для Lazarus UTF-8, любой текст отличный от UTF-8 сперва нужно сконвертировать. Модуль LConvEncoding содержит методы конвертации текста, подключите его в раздел uses, конкретно в Вашем случае из этого модуля понадобятся:
CP866ToUTF8(); UTF8ToCP866();
Я бы сделал по другому:
var
SL: TStringList;
begin
SL := TSTringLIst.Create;
try
SL.LoadFromFile('D:1.txt');
Memo.Lines.Text := CP866ToUTF8(SL.Text)
finally
SL.Free;
end;
end;
Для сохранения обратно:
var
SL: TStringList;
begin
SL := TSTringLIst.Create;
try
SL.Text := UTF8ToCP866(Memo.Lines.Text);
SL.SaveToFile('D:1.txt');
finally
SL.Free;
end;
end;
Юрий Копнин
Мыслитель
(5836)
А Вы уверены что у Вас там cp866? Значит в файле не та кодировка.
Вот изготовил рабочий пример:
visual-t.ru/files/test/LazEncoding.zip