Спецсимволы заменяются на "@"

@odradek · Регистрация: 15.05.2012

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

привет всем.
мне надо, чтобы при закрытии программы, текст из мемо сохранялся в ини файл.
и чтобы он был не читаемым.
использую самый простой алгоритм:
событие onclose

Delphi
1
2
3
4
5
S:=memo1.Lines.Text;
 For X := 1 to Length(S) do
    S[X] := Chr(Ord(S[X])-1);
Memo1.Lines.Text:=S;
memo1.Lines.SaveToFile(g+'\1.ini');

затем при открытии программы я его считываю:

Delphi
1
2
3
4
5
memo1.Lines.LoadFromFile(g+'\1.ini');
S:=memo1.Lines.Text;
 For X := 1 to Length(S) do
     S[X] := Chr(Ord(S[X])+1);
Memo1.Lines.Text:=S;

но есть проблема, все спецсимволы заменяются на "@".
ввожу "100$" - закрываю программу.
открываю - в мемо: "100@"
как быть?

@anonimus · 21.06.2012, 11:29

да и попробуй в блокноте например нажать альт удерживая ввести с клавы (цифры что слева, а не в ряд над буквами) 0185 и отпустить альт, по идеи должен встать знак № в месте где стоял курсор

P.S.
и попробуй это что выведет?

Delphi
1
ShowMessage(char($B9));

@odradek · 21.06.2012, 11:29 **[ТС]**

все также как у тебя.
в блокноте
если удерживаю альт и ввожу 0185
отображается символ "¹".

@Санек25 · 21.06.2012, 11:32

odradek, кодируй другим способом, на форуме есть уже готовые алгоритмы...

@odradek · 21.06.2012, 12:48 **[ТС]**

можно ссылочку? если не сложно.

Добавлено через 13 минут
даже если использую другие алгоритмы шифрации, все равно этот символ заменяется..

@anonimus · 21.06.2012, 12:53

odradek,

Delphi
1
ShowMessage(char($B9));

тоже самое выводит?

@odradek · 21.06.2012, 13:21 **[ТС]**

anonimus, да.
пробовал через richedit, символ не заменяется, но после моей строки добавляются еще 2. не понимаю почему.

Добавлено через 18 минут
ладно, всем спасибо, кто пытался помочь.
решил символ № заменить на N.

Одиночка · 21.06.2012, 18:16

Ещё такой вариант. Посмотри какое имя шрифта стоит у тебя в Memo. У меня, когда загружаю твой проект - Tahona. Но возможно у меня просто выбирается это из-за того, что нет такого, какой стоит у тебя. И DEFAULT_CHARSET. Не факт, но это тоже может влиять.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@odradek 4 / 4 / 1 Регистрация: 15.05.2012 Сообщений: 63
	21.06.2012, 11:29 [ТС]
	все также как у тебя. в блокноте если удерживаю альт и ввожу 0185 отображается символ "¹". 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	21.06.2012, 11:32
	odradek, кодируй другим способом, на форуме есть уже готовые алгоритмы... 0

@odradek 4 / 4 / 1 Регистрация: 15.05.2012 Сообщений: 63
	21.06.2012, 12:48 [ТС]
	можно ссылочку? если не сложно. Добавлено через 13 минут даже если использую другие алгоритмы шифрации, все равно этот символ заменяется.. 0

@odradek 4 / 4 / 1 Регистрация: 15.05.2012 Сообщений: 63
	21.06.2012, 13:21 [ТС]
	anonimus, да. пробовал через richedit, символ не заменяется, но после моей строки добавляются еще 2. не понимаю почему. Добавлено через 18 минут ладно, всем спасибо, кто пытался помочь. решил символ № заменить на N. 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	21.06.2012, 18:16
	Ещё такой вариант. Посмотри какое имя шрифта стоит у тебя в Memo. У меня, когда загружаю твой проект - Tahona. Но возможно у меня просто выбирается это из-за того, что нет такого, какой стоит у тебя. И DEFAULT_CHARSET. Не факт, но это тоже может влиять. 0