Иероглифы вместо текста

@Porrovitos · Регистрация: 09.05.2020

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

У меня есть файлы. Они отображаются в ListBox. При нажатии на item открывается файл txt. Предварительно перед открытием к имени item добавляется '.txt'. Но когда я присваиваю label текст из файла(Текст на русском языке), то мне отображаться иероглифы. С английским языком все нормально.

@qwertehok · 26.05.2020, 00:51

кодировка в файле не та

если у тебя D7, то в файле .никод

@Porrovitos · 26.05.2020, 00:52 **[ТС]**

Как исправить?

@qwertehok · 26.05.2020, 01:24

что исправить?
версию делфи? - скачать новую? тут вроде как 10.4 бесплатная подъехала
кодировку в файле? - сменить

@Porrovitos · 26.05.2020, 09:30 **[ТС]**

Кодировку в файле

@mr-Crocodile · 26.05.2020, 09:59

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

Кодировку в файле

можно программным способом - использовать программу для перекодировки,
если файлов немного можно перекодировать вручную (взять любой нормальный редактор текста типа Notepad++, хотя, по моему обычный виндовый notepad умеет это делать).
Учтите, что далеко не всякий UTF-8 можно сохранить в кодировке 1251 без потерь.

а почему не хотите перейти на современную Delphi ? Там этой проблемы нет. И файлы не надо перекодировать и кракозябр не будет.

@Porrovitos · 26.05.2020, 10:06 **[ТС]**

Проект на делфи 7 весь

@mr-Crocodile · 26.05.2020, 10:31

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

Проект на делфи 7 весь

ну, если ты не использовал какие-то экзотические сторонние компоненты, а использовал только стандартные библиотеки, то проблем вообще не будет - откроешь свой проект в Delphi 10 и всё.

В принципе, под Delphi 7 тоже можно попытаться прочитать текстовый unicode файл
Delphi5 UTF8
https://www.sql.ru/forum/89004... ayl-v-utf8
Работа с текстовыми файлами в любой кодировке из Delphi до 2009

Но, если хочешь, то можно и попытаться перекодировать твои файлы в 1251 кодировку. Тебе с этим помочь?

@Porrovitos · 26.05.2020, 10:32 **[ТС]**

Да, было бы хорошо если ты помог перекодировать

@mr-Crocodile · 26.05.2020, 10:43

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

Да, было бы хорошо если ты помог перекодировать

попробуй для начала, что покажет вот такой проект:
UTF8Read.zip

если что, то так на кнопке такой код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.btLoadClick(Sender: TObject);
var
  F: TextFile;
  s: UTF8string;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F, OpenDialog1.FileName);
    Reset(F);
    Memo1.Clear;
    while not Eof(F) do
    begin
      ReadLn(F, s); // Считываем строку из файла
      Memo1.Lines.Append(UTF8ToAnsi(s));
    end;
  end;
end;

@qwertehok · 26.05.2020, 15:26

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

хорошо если ты помог перекодировать

Открой Notepad++ и нажми "Сохранить как" и выбери кодировку

вот программисты пошли

Новые блоги и статьи Все статьи Все блоги /
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 . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Porrovitos 0 / 0 / 0 Регистрация: 09.05.2020 Сообщений: 17

	Иероглифы вместо текста 25.05.2020, 23:13. Показов 8443. Ответов 10 Метки caption, delphi, delphi7, error, label, text (Все метки) У меня есть файлы. Они отображаются в ListBox. При нажатии на item открывается файл txt. Предварительно перед открытием к имени item добавляется '.txt'. Но когда я присваиваю label текст из файла(Текст на русском языке), то мне отображаться иероглифы. С английским языком все нормально. 0

@qwertehok 5949 / 4525 / 1094 Регистрация: 29.08.2013 Сообщений: 28,105 Записей в блоге: 3
	26.05.2020, 00:51
	кодировка в файле не та если у тебя D7, то в файле .никод 0

@Porrovitos 0 / 0 / 0 Регистрация: 09.05.2020 Сообщений: 17
	26.05.2020, 00:52 [ТС]
	Как исправить? 0

@qwertehok 5949 / 4525 / 1094 Регистрация: 29.08.2013 Сообщений: 28,105 Записей в блоге: 3
	26.05.2020, 01:24
	что исправить? версию делфи? - скачать новую? тут вроде как 10.4 бесплатная подъехала кодировку в файле? - сменить 0

@Porrovitos 0 / 0 / 0 Регистрация: 09.05.2020 Сообщений: 17
	26.05.2020, 09:30 [ТС]
	Кодировку в файле 0

@Porrovitos 0 / 0 / 0 Регистрация: 09.05.2020 Сообщений: 17
	26.05.2020, 10:06 [ТС]
	Проект на делфи 7 весь 0

@Porrovitos 0 / 0 / 0 Регистрация: 09.05.2020 Сообщений: 17
	26.05.2020, 10:32 [ТС]
	Да, было бы хорошо если ты помог перекодировать 0