Not enough actual parametrs в созданной процедуре

@artem2302 · Регистрация: 30.09.2014

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

Здравствуйте. Написал процедуру, в которую передаются два параметра, пытаюсь из другой процедуры передать туда два параметра соответствующих типов, но компилятор говорит: "Not enough actual parametrs", хотя вроде количество параметров совпадает. Привожу код:

Delphi

{процедура 1}
procedure tcontrf.addc(combox: TComboBox; var mon: longint);
var i: integer;
begin
case combox.ItemIndex of
0: i:=100;
1: i:=200;
2: i:=300;
3: i:=400;
4: i:=500;
5: i:=600;
6: i:=700;
7: i:=800;
8: i:=900;
9: i:=1000;
10: i:=1100;
11: i:=1200;
12: i:=1300;
13: i:=1400;
14: i:=1500;
end;
mon:=mon+i
end;

Delphi

{процедура 2}
procedure Tcontrf.Add1Click(Sender: TObject);
begin
addc(combobox1; money1);
player1.cash1.caption:=inttostr(money1)
end;

.

@cotseec · 11.01.2015, 08:00

addc(combobox1, money1);

@artem2302 · 11.01.2015, 18:26 **[ТС]**

Черт, точно, спасибо. Под утро такое не смог увидеть

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	11.01.2015, 08:00	2
	addc(combobox1, money1); 1

@artem2302 39 / 26 / 18 Регистрация: 30.09.2014 Сообщений: 142
	11.01.2015, 18:26 [ТС]	3
	Черт, точно, спасибо. Под утро такое не смог увидеть 0

Опции темы