Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.11;
Скачать: CL | DM;

Вниз

CallBack   Найти похожие ветки 

 
SkyRanger ©   (2005-11-24 04:29) [0]

Наткнулся тут на модуль, реализующий енто дело на delphi
Что то не могу найти ничего путного по этому вопросу.
Не подскажете зачем вообще сущесьвует CallBack??

P.S. и что то поиск по сайту не работает :(


 
Джо ©   (2005-11-24 04:44) [1]

Callback-функции - это родовое понятие. Русский перевод функции обратного вызова. Чтобы поменьше разводить теории, приведу разъясняющий пример.

type
 // определим процедурный тип
 TMyCallBackProc = procedure (CurrentValue: Integer);

// в качестве одного из параметров процедура принимает функцию обратного вызова

// и вызывает ее для каждой итерации цикла, заданного рамками Min & Max
procedure DoCycle (Min,Max: Integer; Callback: TMyCallBackProc);
var
 I: Integer;
begin
 for I := Min to Max do
   Callback (I)
end;

// определяем нашу callback-процедуру
// список параметров должен соответствовать типу TMyCallBackProc
// название может быть любым
procedure MyCallBackProc (CurrentValue: Integer);
begin
 // выводит на экран передаваемое ей значение
 ShowMessage (IntToStr(CurrentValue));
end;

// тестируем
procedure TForm1.Button1Click(Sender: TObject);
begin
 // вызываем процедуру, в цикле перебирающую значения от 0 до 3
 // и передаем ей адрес нашей callback-процедуры
 DoCycle(0,3,MyCallBackProc);
end;


Если что-то непонятно, пиши.



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

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

Наверх




Память: 0.45 MB
Время: 0.038 c
2-1132906842
quadronik
2005-11-25 11:20
2005.12.11
Неужели никто не поможет?!


14-1132254389
Kerk
2005-11-17 22:06
2005.12.11
Является ли Финляндия скандинавской страной?


14-1132314851
Udaff
2005-11-18 14:54
2005.12.11
розыскиваю книги автора


14-1132647302
злобная танька
2005-11-22 11:15
2005.12.11
Посоветуйте книжку по VC++ или как там его


4-1124891807
Dr.Nemo
2005-08-24 17:56
2005.12.11
Как подловить запуск приложения





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский