Кириллица ANSI в тексте TMemo

@igelizm · Регистрация: 10.02.2019

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

Здравия всем!
Почему-то кракозябры, хотя фонт Verdana, чарсет RUSSIAN_CHARSET, а Нотпад++ определяет кодировку файла как ANSI

Pascal

1	Memo1.Lines.LoadFromFile(FName);

фонт менял на консольный, системный,

Delphi

1	Memo1.Lines.Text := AnsiToUTF8(Memo1.Lines.Text);

тоже ничего не меняет.
или это в настройках проекта и программы искать?

Добавлено через 20 минут
Вернее знаки вопроса вместо букв.

@volvo · 27.02.2019, 17:32

Pascal

1	Memo1.Lines.Text := CP1251ToUTF8(ReadFileToString(filename));

(в Uses добавить FileUtil и LConvEncoding)

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

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

Нотпад++ определяет кодировку файла как ANSI

Очень странно. У меня если даже при сохранении кодировка определяется как ANSI, то при переоткрытии этого файла уже показывается Win1251. Ни разу не видел файлов, которые при переоткрытии в Notepad++ показывали бы ANSI.

@igelizm · 27.02.2019, 17:58 **[ТС]**

volvo, FileUtil был, LConvEncoding добавил - всё равно вопросы.
Пробовал и переоткрывать- всегда ANSI и в FAR тоже. Прилеплял пример тут https://www.cyberforum.ru/atta... 1549928078

@volvo · 27.02.2019, 18:14

Ну тогда не знаю. У меня вот так отображается:

Как видим, во-первых - никаких вопросиков, а во-вторых - кодировка-таки определяется как 1251. Больше ничем помочь не могу.

@igelizm · 27.02.2019, 18:50 **[ТС]**

Чудеса.. Попробовал и Memo1.Lines.Text := CP1251ToUTF8(Memo1.Lines.Text); - картина не меняется. Непонятно почему даже Нотпад по-разному определяет. Верно я мыслю что в диалоге шрифта если в окне Пример видно кириллицу- то она должна отображаться? А можно мой проект запустить? Как он на другом компе скомпилится- с ошибкой или без?

@volvo · 27.02.2019, 19:50

Когда ты перестанешь изгаляться, и напишешь то, что тебе говорят:

Pascal

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
i, j, raz: integer;
prev, curr : double;
mycolor : TColor;
begin
  if OpenDialog1.Execute then
  begin
        prev:=0;
        FName:= OpenDialog1.FileName;
        Memo.Lines.Add('Загружён протокол датчиков '+FName);
        //Memo1.Lines.LoadFromFile(FName);
        //Memo1.Lines.Text := CP1251ToUTF8(Memo1.Lines.Text);
        Memo1.Lines.Text:=CP1251ToUTF8(ReadFileToString(FName));
        StringGrid1.rowcount:=memo1.lines.count;
// ...

- все как по мановению волшебной палочки заработает:

Или ты действительно не видишь разницы между

Pascal

1	Memo.Lines.Add(CP1251ToUTF8(ReadFileToString(FName)));

и

Pascal

1 2	Memo1.Lines.LoadFromFile(FName); Memo1.Lines.Text := CP1251ToUTF8(Memo1.Lines.Text);

?

@igelizm · 27.02.2019, 21:14 **[ТС]**

volvo, Благодарю за науку и извиняюсь за тупость и трату времени. Теперь только дошло, что конвертировать второй строкой то, что криво считано первой- безтолку.

Добавлено через 2 минуты
но почему Нотпады по-разному определяют кодировку я так и не понял.. та й нихай..

@igelizm 59 / 0 / 0 Регистрация: 10.02.2019 Сообщений: 54
	27.02.2019, 17:58 [ТС]	3
	volvo, FileUtil был, LConvEncoding добавил - всё равно вопросы. Пробовал и переоткрывать- всегда ANSI и в FAR тоже. Прилеплял пример тут https://www.cyberforum.ru/atta... 1549928078 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	27.02.2019, 18:14	4
	Ну тогда не знаю. У меня вот так отображается: Как видим, во-первых - никаких вопросиков, а во-вторых - кодировка-таки определяется как 1251. Больше ничем помочь не могу. 1

@igelizm 59 / 0 / 0 Регистрация: 10.02.2019 Сообщений: 54
	27.02.2019, 21:14 [ТС]	7
	volvo, Благодарю за науку и извиняюсь за тупость и трату времени. Теперь только дошло, что конвертировать второй строкой то, что криво считано первой- безтолку. Добавлено через 2 минуты но почему Нотпады по-разному определяют кодировку я так и не понял.. та й нихай.. 0

Кириллица ANSI в тексте TMemo

Решение