Вывод символа по коду

[restar82]

Здравствуйте уважаемые форумчане !

Есть такая проблемка.

необходимо вывести символ по коду.

например: Label1.Caption :=#0150#0151#0153#0154#0156#0157#01 59
в результате получаем:–—™љњќџ

а как быть если код переменный?

i:=0150;
Label1.Caption :=Chr(i);

не работает

[Alar]

Добавить # к 0150 никак? )
или хранить в переменной сразу #0150

[Serge_Bliznykov]

Какая версия Delphi ?

[northener]

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

Добавить # к 0150 никак? )

И чем это ТС поможет?

[restar82]

версия Delphi 10.2

#0150 - как константа это работает, а вот кот константу сделать из переменных никак.(это уже не константа).
i:=0150;
Label1.Caption :=#+ inttostr(i); -- работать не будет!!!!!!!

[Serge_Bliznykov]

а так что будет?

i:=0150;
Label1.Caption := WideChar(i);

это должен быть символ –

[restar82]

вот что получилось..... может у кого будет какая идея....


создал форму
на форме 2 EditText
2 кнопки
2 Label
в первом EditText зажимаю клавишу Alt и набираю цифры 0154
появляется символ љ
нажимаю кнопку 1, в ней код

procedure TForm1.btn1Click(Sender: TObject);
var
st, s:string;
begin
  st:=edt1.Text;
  s:= IntToStr (ord(st));
  Label1.Caption :=s;
end;

так вот в Label1 появляется число 1113

если это число вставить в функцию Chr(1113) то тогда появляется символ љ

как организовать преобразование кода 0154 в 1113 ?

[Serge_Bliznykov]

WideChar не помогло?

Что Вы вообще пытаетесь сделать?
Сагу о X,Y,Z знаете?

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

как организовать преобразование кода 0154 в 1113 ?

зачем?
это разные коды.
в данном случае это код Unicode 0x0459 (U+0459) https://unicode-table.com/en/#0459

Откройте для себя Unicode:
Абсолютный Минимум, который Каждый Разработчик Программного Обеспечения Обязательно Должен Знать о Unicode и Наборах Символов

Что нужно знать каждому разработчику о кодировках и наборах символов для работы с текстом
часть 1
часть 2

оригиналы:
https://www.joelonsoftware.com/2003/...ts-no-excuses/

http://kunststube.net/encoding/

[restar82]

давайте начну с корня. откуда это все....


есть таблица с логинами и паролями


пароль вида - 11223344 в таблице хранится в следующем виде: "–—™љњќџ "

первая цифра 1, код числа 49, к нему прибавляется порядковый номер(1) и дописывается 01 перед числом в итоге получаем 0150 (дефис)



вторая цифра 1, код числа 49, к нему прибавляется порядковый номер(2) и дописывается 01 перед числом в итоге получаем 0151 (тире)



третья цифра 2, код числа 50, к нему прибавляется порядковый номер(3) и дописывается 01 перед числом в итоге получаем 0153 (™)


четвертая цифра 2, код числа 50, к нему прибавляется порядковый номер(4) и дописывается 01 перед числом в итоге получаем 0154 (љ)


пятая цифра 3, код числа 51, к нему прибавляется порядковый номер(5) и дописывается 01 перед числом в итоге получаем 0156 (њ)


шестая цифра 3, код числа 51, к нему прибавляется порядковый номер(6) и дописывается 01 перед числом в итоге получаем 0157 (ќ)


седьмая цифра 4, код числа 52, к нему прибавляется порядковый номер(7) и дописывается 01 перед числом в итоге получаем 0159 (џ)


восьмая цифра 4, код числа 52, к нему прибавляется порядковый номер(8) и дописывается 01 перед числом в итоге получаем 0160 (неразрывный

пробел)


так во нужно сделать окно авторизации по этому алгоритму....

[p51x]

И как это вообще связано с темой, которая здесь мусолилась? Вам надо ввести строку, преобразовать ее по алгоритму и сравнить две строки (или байтовые последовательности).