Форум: "Начинающим";
Текущий архив: 2009.08.23;
Скачать: [xml.tar.bz2];
Вниз
Определение процедуры Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c
