Реализация процедуры

@Sanuushka · Регистрация: 22.11.2015

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

Какой командой запускается процедура внутри процедуры?

Delphi

1 2	if key=#106 then procedure TForm1.Button14Click(Sender: TObject);

@Hunter342 · 15.11.2016, 19:45

В смысле, а по имени вызвать процедуру?

@cfbogd · 15.11.2016, 19:48

Sanuushka,

Delphi

1	if key=#106 then button14.Click;

@qwertehok · 15.11.2016, 19:48

Delphi

1	if key=#106 then Button14Click(self);

@HiredKiller · 15.11.2016, 19:48

Delphi

1 2	if key=#106 then Button14.Click;

@Sanuushka · 15.11.2016, 19:49 **[ТС]**

Он так не хочет работать, хочет команду

@cfbogd · 15.11.2016, 19:52

Не по теме:

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

Он так не хочет работать

попробуйте уговорить

@Sanuushka · 15.11.2016, 19:53 **[ТС]**

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

if key=#106 then Button14Click(self)

это всё конечно хорошо, но клавиатура всё ранво не работает

@cfbogd · 15.11.2016, 19:55

Sanuushka, вы меня специально игнорируете? сказал же тут: form1.KeyPreview:=true; событие OnKeyPress.

@Sanuushka · 15.11.2016, 19:59 **[ТС]**

Это всё сделано. Не игнорирую, уважьте..

Добавлено через 2 минуты
Ошибок не выдаёт. При запуске она просто не работает

@cfbogd · 15.11.2016, 19:59

Sanuushka, хорошо, присылайте весь код, мы посмотрим

@Sanuushka · 15.11.2016, 20:02 **[ТС]**

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, XPMan, Menus;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button18: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button19: TButton;
    Button20: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    {procedure N2Click(Sender: TObject);}
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;  a, b, c, o, p : extended; znak: char;
 
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.KeyPreview:=true;
  a:=0;
  b:=0;
  c:=0;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'1';
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'2';
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'3';
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'4';
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'5';
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'6';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'7';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'8';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'9';
end;
 
procedure TForm1.Button10Click(Sender: TObject);
begin
  edit1.Text:=edit1.Text+'0';
end;
 
procedure TForm1.Button11Click(Sender: TObject);
begin
  edit1.Text:=edit1.Text+',';
end;
 
procedure TForm1.Button17Click(Sender: TObject);
begin
c:=StrToFloat(edit1.Text);
c:=c*(-1);
edit1.Text:=FloatToStr(c);
end;
 
procedure TForm1.Button12Click(Sender: TObject);
begin
a:=StrToFloat(edit1.Text);
Label1.Caption:=Label1.Caption+edit1.Text+'+';
edit1.Text:='';
znak:='+';
end;
 
procedure TForm1.Button13Click(Sender: TObject);
begin
a:=StrToFloat(edit1.Text);
Label1.Caption:=Label1.Caption+edit1.Text+'-';
edit1.Text:='';
znak:='-';
end;
 
procedure TForm1.Button14Click(Sender: TObject);
begin
a:=StrToFloat(edit1.Text);
Label1.Caption:=Label1.Caption+edit1.Text+'*';
edit1.Text:='';
znak:='*';
end;
 
procedure TForm1.Button15Click(Sender: TObject);
begin
a:=StrToFloat(edit1.Text);
Label1.Caption:=Label1.Caption+edit1.Text+'/';
edit1.Text:='';
znak:='/';
end;
 
procedure TForm1.Button18Click(Sender: TObject);
begin
Label1.Caption:=Label1.Caption+edit1.Text;
b:=StrToFloat(edit1.Text);
  case znak of
  '+': a:=a+b;
  '-': a:=a-b;
  '*': a:=a*b;
  '/': a:=a/b;
  '%': a:=a/100*b;
  end;
Label1.Caption:=Label1.Caption+'='+FloatToStr(a);
edit1.Text:=FloatToStr(a);
end;
 
procedure TForm1.Button19Click(Sender: TObject);
begin
a:=0;
b:=0;
c:=0;
edit1.Text:='';
Label1.Caption:='';
end;
 
procedure TForm1.Button16Click(Sender: TObject);
begin
a:=StrToFloat(edit1.Text);
Label1.Caption:=Label1.Caption+edit1.Text+'%';
edit1.Text:='';
znak:='%';
end;
 
procedure TForm1.Button20Click(Sender: TObject);
var
  s: string;
begin
  s := edit1.text;
  delete(s, Length(Edit1.Text), 1);
  Edit1.text := s;
  end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#97 then
                      edit1.Text:=edit1.Text+'1';
if key=#98 then
                      edit1.Text:=edit1.Text+'2';
if key=#99 then
                      edit1.Text:=edit1.Text+'3';
if key=#100 then
                      edit1.Text:=edit1.Text+'4';
if key=#101 then
                      edit1.Text:=edit1.Text+'5';
if key=#102 then
                      edit1.Text:=edit1.Text+'6';
if key=#103 then
                      edit1.Text:=edit1.Text+'7';
if key=#104 then
                      edit1.Text:=edit1.Text+'8';
if key=#105 then
                      edit1.Text:=edit1.Text+'9';
if key=#96 then
                      edit1.Text:=edit1.Text+'0';
if key=#106 then
                       Button14Click(self);
if key=#107 then
                       Button12Click(self);
if key=#109 then
                       Button13Click(self);
if key=#111 then
                       Button15Click(self);
if key=#110 then
                       Button11Click(self);
end;
 
 
 
 
end.

@cfbogd · 15.11.2016, 20:14

Sanuushka, во первых обратите внимание на то, что код кнопки должен быть десятичным числом. Во вторых я вижу коды клавиш в диапазоне 97..110, а значит что эти кнопки находятся на правой клавиатуре, и вот, работать они будут, только если клавиша NumLock выключена.

@Sanuushka · 15.11.2016, 20:18 **[ТС]**

Я взяла эти номера с того сайта, что вы мне дали. И если NumLock выключена, вообще ничего не пишется в edit

@cfbogd · 15.11.2016, 20:23

Sanuushka, лучше поставить edit1.ReadOnly:=true; чтобы вводить цифры можно быть только в процедуре. + еще не будут вводить буквы.

@Sanuushka · 15.11.2016, 20:33 **[ТС]**

Спасибо, теперь работает

Новые блоги и статьи
Как проверить, что файл НЕ существует с помощью Bash bytestream 25.01.2025 В системном администрировании проверка существования файлов является фундаментальной операцией, особенно при написании скриптов на Bash. Правильная обработка ситуаций, когда файл отсутствует,. . .	Как проверить, что строка пустая, неопределена или null в JavaScript bytestream 25.01.2025 При разработке веб-приложений на JavaScript разработчики регулярно сталкиваются с необходимостью проверки строковых значений на различные состояния. Валидация данных является критически важным. . .	Как проверить существование ключа в объекте или массиве в JavaScript bytestream 25.01.2025 При разработке веб-приложений на JavaScript программисты постоянно сталкиваются с необходимостью работать с объектами и массивами. Эти структуры данных являются фундаментальными элементами языка и. . .	Как создать ArrayList из массива (array) в Java bytestream 25.01.2025 При разработке программного обеспечения на языке Java программисты часто сталкиваются с необходимостью эффективного управления наборами данных. Массивы и ArrayList являются двумя фундаментальными. . .	Как сгенерировать случайные целые числа (int) в указанном диапазоне в Java bytestream 25.01.2025 В программировании генерация случайных чисел является важнейшим инструментом для решения множества практических задач. От создания игровых механик до реализации алгоритмов машинного обучения, от. . .	Как сделать, чтобы grep выводил строки до и после найденной hw_wired 25.01.2025 Утилита grep стала незаменимым инструментом для поиска и фильтрации информации в Unix-подобных операционных системах. Эта командная утилита позволяет осуществлять поиск строк, соответствующих. . .
Как клонировать определенную ветку в Git bytestream 24.01.2025 Одной из ключевых функций Git является возможность клонирования веток, что позволяет создавать локальные копии удаленных репозиториев и работать с определенными версиями проекта. Этот механизм. . .	Как в цикле обойти строки DataFrame в Pandas Python bytestream 24.01.2025 DataFrame представляет собой одну из основных структур данных в библиотеке Python Pandas, которая организует информацию в виде двумерной таблицы с строками и столбцами. Эта структура данных особенно. . .	Как получить имя текущей ветки в Git bytestream 24.01.2025 При работе с Git часто возникает необходимость определить имя текущей ветки, в которой ведется разработка. Знание текущей ветки является критически важным аспектом для эффективного управления. . .	Как отсортировать массив объектов по значению поля объекта в JavaScript bytestream 24.01.2025 При разработке веб-приложений на JavaScript разработчики часто сталкиваются с необходимостью работать с массивами объектов. Эти структуры данных представляют собой упорядоченные наборы элементов, где. . .	Ошибка "src refspec master does not match any" при пуше коммита в Git bytestream 24.01.2025 При работе с системой контроля версий Git разработчики нередко сталкиваются с различными ошибками, одной из которых является сообщение "src refspec master does not match any". Эта ошибка возникает. . .	Как округлить не более двух цифр после запятой в JavaScript bytestream 24.01.2025 При работе с числами в JavaScript разработчики часто сталкиваются с необходимостью округления десятичных значений до определенного количества знаков после запятой. Это особенно важно при работе с. . .

@Hunter342 12 / 12 / 6 Регистрация: 15.08.2011 Сообщений: 184
	15.11.2016, 19:45	2
	В смысле, а по имени вызвать процедуру? 0

@Sanuushka 1 / 1 / 0 Регистрация: 22.11.2015 Сообщений: 45
	15.11.2016, 19:49 [ТС]	6
	Он так не хочет работать, хочет команду 0

@cfbogd
	15.11.2016, 19:52 #7
	Не по теме: Сообщение от Sanuushka Он так не хочет работать попробуйте уговорить 0

@Sanuushka 1 / 1 / 0 Регистрация: 22.11.2015 Сообщений: 45
	15.11.2016, 19:53 [ТС]	8
	Сообщение от qwertehok if key=#106 then Button14Click(self) это всё конечно хорошо, но клавиатура всё ранво не работает 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	15.11.2016, 19:55	9
	Sanuushka, вы меня специально игнорируете? сказал же тут: `form1.KeyPreview:=true;` событие `OnKeyPress`. 0

@Sanuushka 1 / 1 / 0 Регистрация: 22.11.2015 Сообщений: 45
	15.11.2016, 19:59 [ТС]	10
	Это всё сделано. Не игнорирую, уважьте.. Добавлено через 2 минуты Ошибок не выдаёт. При запуске она просто не работает 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	15.11.2016, 19:59	11
	Sanuushka, хорошо, присылайте весь код, мы посмотрим 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	15.11.2016, 20:14	13
	Sanuushka, во первых обратите внимание на то, что код кнопки должен быть десятичным числом. Во вторых я вижу коды клавиш в диапазоне 97..110, а значит что эти кнопки находятся на правой клавиатуре, и вот, работать они будут, только если клавиша NumLock выключена. 0

@Sanuushka 1 / 1 / 0 Регистрация: 22.11.2015 Сообщений: 45
	15.11.2016, 20:18 [ТС]	14
	Я взяла эти номера с того сайта, что вы мне дали. И если NumLock выключена, вообще ничего не пишется в edit 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	15.11.2016, 20:23	15
	Сообщение было отмечено Sanuushka как решение Решение Sanuushka, лучше поставить edit1.ReadOnly:=true; чтобы вводить цифры можно быть только в процедуре. + еще не будут вводить буквы. 1

	15.11.2016, 20:33

@Sanuushka 1 / 1 / 0 Регистрация: 22.11.2015 Сообщений: 45
	15.11.2016, 20:33 [ТС]	16
	Спасибо, теперь работает 0

Реализация процедуры

Решение