|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Вывод символа по коду
Здравствуйте уважаемые форумчане !
Есть такая проблемка. необходимо вывести символ по коду. например: Label1.Caption :=#0150#0151#0153#0154#0156#0157#0159 в результате получаем:–—™љњќџ а как быть если код переменный? i:=0150; Label1.Caption :=Chr(i); не работает ( |
#2
|
|||
|
|||
А что именнно не работает?
Должно работать. Ну и версию Дельфи скажи. Может там засада и ты просто получаешь не совсем то, что ожидаешь. |
#3
|
|||
|
|||
версия Delphi 10.2
|
#4
|
|||
|
|||
Вот так работает:
Код:
procedure TForm1.Button1Click(Sender: TObject); const A : Array [0..6] Of Integer = (0150,0151,0153,0154,0156,0157,0159); var I : Integer; S : String; begin S := ''; For I := Low(A) To High(A) Do S := S + AnsiChar(Chr(A[i])); Edit1.Text := S; end; |