Скачать: CL | DM;

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

← →
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;

---

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

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

---

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

> Palladin ©   (25.06.09 14:23) [4]

спасибо

TComboFillPrc = procedure(Combo: TComboBox) of Object;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c