Определение процедуры

← →
webpauk © (2009-06-25 14:10) [0]

Unit MdlTypes;

type TComboFillPrc = procedure(Combo: TComboBox); {} procedure SetComboFill(Combo: TComboBox; ComboFillPrc: TComboFillPrc); implementation procedure SetComboFill(Combo: TComboBox; ComboFillPrc: TComboFillPrc); begin DoSomthing... ComboFillPrc(Combo); DoSomthing... end; Unit Main; uses MdlTypes; type TFormMain = class(TForm) SetDepartment: TComboFillPrc; procedure SetData; end; procedure TFormMain.SetData; begin SetComboFill(ComboBox1, SetDepartment); end;

как определить SetDepartment?

← →
Palladin © (2009-06-25 14:11) [1]

наверху написано TComboFillPrc = procedure(Combo: TComboBox);
ни о чем не говорит?

← →
clickmaker © (2009-06-25 14:12) [2]

не догадаться?
если TComboFillPrc = procedure(Combo: TComboBox);

← →
webpauk © (2009-06-25 14:22) [3]

> clickmaker © (25.06.09 14:12) [2]

мнэээ.... да эт я понимаю...
ваще то я об ошибке Incompatible types: "regular procedure and method pointer"

← →
Palladin © (2009-06-25 14:23) [4]

> webpauk © (25.06.09 14:22) [3]

ващето разница в том procedure не of object

← →
webpauk © (2009-06-25 14:24) [5]

прошу прошения, не совсем правильно описал задачу...

type
TFormMain = class(TForm)
procedure SetDepartment(Combo: TcomboBox);
procedure SetData;
end;

procedure TFormMain.SetData;
begin
SetComboFill(ComboBox1, SetDepartment);
end;

procedure TFormMain.SetDepartment(Combo: TcomboBox);
begin
end;

рекомендую понять разницу между процедурой и методом

Определение процедуры Найти похожие ветки