Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.06.2019, 11:29   #11
restar82
Пользователь
 
Регистрация: 15.10.2013
Сообщений: 10
По умолчанию

в этом и вся загвоздка.... как получить символы из кодов полученных по вышеуказанному алгоритму
ввели код в edittext (1122)
получили код 0150 0151 0153 0154

теперь осталось получить символы..... по этим кодам
restar82 вне форума Ответить с цитированием
Старый 26.06.2019, 11:32   #12
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Завсит от того, как вы храните. Если храните в анси берите AnsiChr (Chr для старых), для юникода Char (WideChar), если в UTF8, то...
А вообще лучше сравнивать байтовую последовательность.
p51x на форуме Ответить с цитированием
Старый 26.06.2019, 11:37   #13
restar82
Пользователь
 
Регистрация: 15.10.2013
Сообщений: 10
По умолчанию

p51x не знаю как тебя отблагодарить, AnsiChar помогло.....
restar82 вне форума Ответить с цитированием
Старый 26.06.2019, 13:46   #14
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

Цитата:
Сообщение от restar82 Посмотреть сообщение
Label1.Caption :=#+ inttostr(i); -- работать не будет!!!!!!!
как и следовало догадаться вы это в инт засунули, замечательно )
а то что сразу ноль потеряете не подумали? ) что 150 будет храниться ))

Вот вам для помощи
http://www.delphibasics.ru/IntToStr.php это перекидывание в строку
http://www.delphibasics.ru/Chr.php
http://www.delphibasics.ru/AnsiChar.php
Alar вне форума Ответить с цитированием
Старый 26.06.2019, 16:14   #15
restar82
Пользователь
 
Регистрация: 15.10.2013
Сообщений: 10
По умолчанию

Цитата:
Сообщение от Alar Посмотреть сообщение
как и следовало догадаться вы это в инт засунули, замечательно )
а то что сразу ноль потеряете не подумали? ) что 150 будет храниться ))

Вот вам для помощи
http://www.delphibasics.ru/IntToStr.php это перекидывание в строку
http://www.delphibasics.ru/Chr.php
http://www.delphibasics.ru/AnsiChar.php

Даже если вручную прописать
Label1.Caption :=#+ inttostr('11111');
работать не будет, дело не в том что ноль теряется, а в том что с решеткой # задается константа, а inttostr('11111') это целая функция )))
restar82 вне форума Ответить с цитированием
Старый 26.06.2019, 20:52   #16
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

Label1.Caption - тип стринг, а вам надо тип чар.

очевидно что делая вот это

Label1.Caption :=#+ inttostr('11111');

вы получите #11111

потому что # + inttostr строка + строка, вопрос причём тут чар?
Alar вне форума Ответить с цитированием
Старый 26.06.2019, 20:55   #17
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

нате вам тему на форуме от 2007 года

https://www.programmersforum.ru/showthread.php?t=5857

и ссылок оттуда.

http://pblog.ru/?p=84
http://www.delphibasics.ru/Addr.php
http://www.programmersclub.ru/typepchar/
Alar вне форума Ответить с цитированием
Старый 26.06.2019, 21:07   #18
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Alar Посмотреть сообщение
Label1.Caption - тип стринг, а вам надо тип чар.
Стрингу можно присвоить чар.
Речь о другом.
когда пишешь,
Код:
Label1.Caption :=#0150;
то это работает. просто через # указывается код символа.

а автор темы спрашивал, как быть, если у него число в переменной целого типа.

но это уже неважно, ему помогло
Код:
Label1.Caption :=AnsiChar(150);
вопрос закрыт.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 27.06.2019, 11:30   #19
restar82
Пользователь
 
Регистрация: 15.10.2013
Сообщений: 10
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Стрингу можно присвоить чар.
Речь о другом.
когда пишешь,
Код:
Label1.Caption :=#0150;
то это работает. просто через # указывается код символа.

а автор темы спрашивал, как быть, если у него число в переменной целого типа.

но это уже неважно, ему помогло
Код:
Label1.Caption :=AnsiChar(150);
вопрос закрыт.
Вы меня поняли.....
restar82 вне форума Ответить с цитированием
Старый 28.06.2019, 02:28   #20
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Цитата:
Сообщение от Alar Посмотреть сообщение
нате вам тему на форуме от 2007 года
Вы совсем не в теме, увы
Речь идет не о строках и не о символах. Это только на первый взгляд так кажется. Речь идет о шифровании, а в шифровании до сих пор пока используются байты, а не символы.
northener вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получение символа по юникод-коду символа Drekon Win Api 11 17.05.2018 16:05
Вывод символа Антон2121 Фриланс 4 01.06.2017 21:15
вывод символа на экран Palomnik1096 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 29.06.2011 15:16
Вывод символа в консоль по десятичному скан-коду Alex1991 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 14.11.2010 20:37
вывод символа skymaster Общие вопросы Delphi 3 04.06.2009 17:31