Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
NeverLand9
1 / 1 / 0
Регистрация: 26.03.2014
Сообщений: 16
#1

Расшифруйте символ на цифровой код ANSI - Delphi

23.04.2014, 20:50. Просмотров 622. Ответов 1
Метки нет (Все метки)

Я хочу чтобы он брал из созданих значений (по ANSI коду)
Например вёл букву: a ; а вивел его как 97
Помогите пожалуста.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Xpman, StdCtrls, Grids, Buttons;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  abc: array [1..26] of Ansichar;
  shif: array [1..26,1..3] of integer;
  l:AnsiChar;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['A'..'Z','a'..'z',#8,#13]) then
begin
Key := #0;
MessageDlg('Nuzhno vesti tolko angliskije bukvi'#13#10,mtError,[mbOk],0);
end;
BitBtn1.Enabled:=true;
if key=#13 then BitBtn1.Click;
end;
 
//-------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var t:integer;
i,j,k,p,f,n:integer;
begin
//-------------------------------------------------------
t:=1;
for l := 'a' to 'z' do
begin
 abc[t]:=l;
 inc (t);
end;
for t := 0 to 26 do StringGrid1.Cells[t,0]:=abc[t+1];
//*****************************
procedure TForm1.BitBtn1Click(Sender: TObject);
var s:string;
i,p,m:integer;
abc: array [1..26] of string;
begin
for i:=1 to length(edit1.text) do
begin
p:=Ord(Edit1.Text[i])-224;
abc[i]:=StringGrid1.Cells[p,1];
 
 
 
Edit2.Text:=Edit2.Text+abc[i];
end;
 
//************************
 
end;
end.
Расшифруйте символ на цифровой код ANSI
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.04.2014, 20:50
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Расшифруйте символ на цифровой код ANSI (Delphi):

UTF8 и Ansi в Ansi - Delphi
В программу на вход поступают текстовые документы с разными кодировками (UTF8 или Ansi). Определять, какая, нужно автоматически, или вообще...

символ в код - Delphi
подскажите пожалуйста, как можно зная символ получить его код? те предположим что s:='a', это аналогично тому что s:=#97 как получить...

Пишу код и следующий символ удаляется - Delphi
Создаю новый проект в Delphi XE3. Хочу например к переменным "x,y,k" дописать что-то в начало. Начинаю писать, например напишу "m" и...

Расшифруйте приведенное регулярное выражение, что означает каждый символ? - PHP
"//"

Расшифруйте код - Apache, htaccess
Что значит этот код? ForceType application/octet-stream <FilesMatch ".gif$"> ForceType image/gif </FilesMatch> ...

Расшифруйте код - VBA
Sub Поиск_токов() 'Нечетный путь 'Перебор моментов времени For j = 1 To 41 Step 1 'Перебор пикетов For i = 1...

1
NeverLand9
1 / 1 / 0
Регистрация: 26.03.2014
Сообщений: 16
23.04.2014, 20:55  [ТС] #2
Расшифруйте символ на цифровой код ANSI
tak primerno
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.04.2014, 20:55
Привет! Вот еще темы с ответами:

В ShowMessage вывести один символ Ansi? - Pascal
ShowMessage(inttostr(ord('а'))); // а - русский символ (английский выводит, а русский ошибка: unit1.pas(66,24) Error: Ordinal expression...

Пожалуйста, расшифруйте код - C++
Есть код программы. Программа вычисляет максимальный поток по алгоритму Форда-Фалкерсона . В программе есть цикл, педагог спрашивает, каким...

расшифруйте код printf () :%12.2f - C++
расшифруйте код printf () :%12.2f. Приведите пожалуйста примр программы с такой функцией printf () и таким кодом формата

Можно ли в std::string записать Ansi символ (например NUL)? - C++
Можно ли в std::string записать Ansi символ(например NUL)?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru