Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.08.23;
Скачать: 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 вся ветка

Текущий архив: 2009.08.23;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
8-1196707594
_alex_
2007-12-03 21:46
2009.08.23
Декомпрессоры


15-1246004611
Knight
2009-06-26 12:23
2009.08.23
Скрин не передаётся по сети..


1-1212582291
i
2008-06-04 16:24
2009.08.23
проблема с tpaintbox и jpegimage


15-1245920008
Артур Пирожков
2009-06-25 12:53
2009.08.23
Кто-нить пользуется браузером Safari?


15-1245756951
tesseract
2009-06-23 15:35
2009.08.23
FireBird прошёл в финалисты Community choice