Ожидалась функция, встречена процедура

@Chyika · Регистрация: 31.01.2019

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

Нужна помощь, выдает ошибку "Ожидалась функция, встречена процедура". Если присваивать процедуру без передачи параметров, то все норм, но мне нужно передавать кол-во урона.
P.S Если есть идеи как реализовать это правильнее, буду рад услышать

Pascal
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
uses GraphABC, ABCButtons;
 
 
    
Type Enemy = class
    healt_icon:= Picture.Create('healt.png');
    _healt_icon:= Picture.Create('healt_.png');
    hp:integer;
    damage:integer;
    def:boolean;
    Procedure healing;
    procedure attacking(hp:integer; var new_hp:integer);
    procedure defend;
    procedure loss_hp(damage:integer);
    procedure draw(side:string);
 
    end;
 
Type Hero = class(Enemy)
    coin:integer;
    procedure add_coin;
    end;
 
// Методы Hero
   
   Procedure Hero.add_coin;
      begin
        self.coin+=1;
      end;
 
      
   
      
// Методы Enemy      
    Procedure Enemy.healing;
      begin
        self.hp+=1;
 
      end;
   
   Procedure Enemy.attacking(hp:integer; var new_hp:integer);
      begin
        new_hp:=hp-self.damage;
        
      end;
      
   Procedure Enemy.defend;
      begin
        self.def:=true;
      end;
   
   Procedure Enemy.loss_hp(damage:integer);
      begin
        self.hp:=self.hp-damage;
       // clearwindow;
        //self.drow('right');
        var y:=10;
        for var i:=1 to damage do
          begin
            //_healt_icon.Draw(x,y);
            _healt_icon.Draw(610,y);
            y:=y-30;
          end;
      end;
      
   Procedure Enemy.draw(side:string);
   var i,y,x:integer;
      begin
        y:=250;
        if side = 'right' then x:=610 else x:=10;
        for i:=1 to self.hp do
          begin
            //_healt_icon.Draw(x,y);
            healt_icon.Draw(x,y);
            y:=y-30;
          end;
      end;
      
  procedure Event_BtnAttack();
  begin
    
  end;
  
var sword_icon, potion_icon, shield_icon, coin_icon, bazer_icon, hero_icon,healt_icon:picture;
    click, i,m,x,y: integer;
    btnAttack,btnHeal,btnDefend,btnCoin: ButtonABC;
    Knight: Hero; 
    Bazer: Enemy;
    game:boolean;
 
begin
 
  sword_icon:= Picture.Create('sword.png'); 
  potion_icon:= Picture.Create('potion.png'); 
  shield_icon:= Picture.Create('shield.png'); 
  coin_icon:= Picture.Create('coin.png'); 
  bazer_icon:= Picture.Create('bazer.png'); 
  hero_icon:= Picture.Create('hero.png'); 
  healt_icon:= Picture.Create('healt.png'); 
  
  bazer_icon.Width :=100;
  bazer_icon.height :=100;
  
  sword_icon.Draw(80,350); 
  potion_icon.Draw(230,350); 
  shield_icon.Draw(380,350); 
  coin_icon.Draw(530,350); 
  bazer_icon.Draw(350,150); 
  hero_icon.Draw(150,190);
 
 //Атака
   btnAttack := new ButtonABC(60, 420, 100, 30, 'Бить', clwhite); 
   btnAttack.FontColor:= Color.black;
   btnAttack.FontStyle:= fsBold; 
   btnAttack.TextScale:= 0.9;
 
  //Лечение
   btnHeal := new ButtonABC(210, 420, 100, 30, 'Лечиться', clwhite); 
   btnHeal.FontColor:= Color.black;
   btnHeal.FontStyle:= fsBold; 
   btnHeal.TextScale:= 0.9;
 
 //Защита
   btnDefend := new ButtonABC(360, 420, 100, 30, 'Защититься', clwhite); 
   btnDefend.FontColor:= Color.black;
   btnDefend.FontStyle:= fsBold; 
   btnDefend.TextScale:= 0.9;
 
 //Монеты
   btnCoin := new ButtonABC(510, 420, 100, 30, 'Собрать', clwhite); 
   btnCoin.FontColor:= Color.black;
   btnCoin.FontStyle:= fsBold; 
   btnCoin.TextScale:= 0.9;
 
Window.IsFixedSize := true;
 
 // Старт
 
    
  Knight:= hero.create();
  Knight.hp:= 5;
  Knight.coin:= 0;
  Knight.damage:= 1;
  Knight.def:= false;
  Knight.draw('left');
  
  Bazer:=hero.create();
  Bazer.hp:= 8;
  Bazer.damage:= 1;
  Bazer.def:= false;
  Bazer.draw('right');
 
 
  //Bazer.loss_hp(Knight.damage)
 
  btnAttack.OnClick:=Bazer.loss_hp(1);
 
  
 
end.

@ValentinNemo · 31.01.2019, 23:16

Pascal
1
2
3
4
5
6
var sword_icon, potion_icon, shield_icon, coin_icon, bazer_icon, hero_icon,healt_icon:picture;
    click, i,m,x,y: integer;
    btnAttack,btnHeal,btnDefend,btnCoin: ButtonABC;
    Knight: Hero; 
    Bazer: Enemy;
    game:boolean;

Вы переопределили Bazer:

Pascal
1
Bazer: Enemy;

А Enemy.loss_hp определена как процедура:

Pascal
1
Procedure Enemy.loss_hp(damage:integer);

@volvo · 01.02.2019, 00:07

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

Если присваивать процедуру без передачи параметров, то все норм

Что "норм"? Сообщение

Program6.pas(156) : Нельзя преобразовать тип procedure(damage: integer) к procedure()

- это "норм"?

По-моему, кто-то просто не понимает, что такое обработчик события. Туда не надо ничего передавать. Ему надо присвоить процедуру, которая будет вызываться в момент нажатия на кнопку.

@Sun Serega · 01.02.2019, 01:51

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

btnAttack.OnClick:=Bazer.loss_hp(1);

Вам нужно написать процедуру без параметров, которая будет вызывать Bazer.loss_hp(1), чтоб её можно было присвоить тут.

Pascal
1
2
3
4
5
6
7
8
procedure p1;
begin
  Bazer.loss_hp(1);
end;
 
***
 
btnAttack.OnClick:=p1;

Эту процедуру можно сделать в виде лямбды, то есть анонимной подпрограммы (в данном случае процедуры):

Pascal
1
btnAttack.OnClick:=procedure->Bazer.loss_hp(1);

При компиляции будет создана новая процедура с уникальным именем, которая будет вызывать Bazer.loss_hp(1). А procedure->Bazer.loss_hp(1) при этом заменит на имя той новой процедуры.

@Chyika · 02.02.2019, 07:31 **[ТС]**

Спасибо, помогло

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Chyika 0 / 0 / 0 Регистрация: 31.01.2019 Сообщений: 5
	02.02.2019, 07:31 [ТС]
	Спасибо, помогло 0

Ожидалась функция, встречена процедура

Решение