回调函数的问题?

Question

源码如下:
program Project2;{$APPTYPE CONSOLE}uses
  SysUtils,Dialogs;
  type
  tintpoint=^integer;
type
tcallback=procedure (i:tintpoint); 
procedure callback(i:tintpoint);   
begin
if i^=0 then
begin
showmessage('well');
end
else
begin
showmessage('bad') ;
end;
end;
procedure mycall(call:tcallback); 
var
int:integer;
begin
 callback(@int);end;
var
in1:integer;begin
readln(in1);
mycall(@in1);end.
也不知道这样是不是定义回调函数,还有就是程序老实输出bad,无法输出well,那里有错误请执教

Answer 1

楼主没理解清楚回调函数的概念，举个例子来说明一下：A函数提供了某种服务，不过这个服务不是实时的，在调用A函数之后需要过一会儿(这个时间长短不确定)才会结束。现在B想调用A函数，并且想知道服务何时完成，于是B在调用A函数时同时告诉A函数另外一个函数C，A函数会在服务完成时去调用C函数。这个C函数就是所谓的回调函数。type
  tcallback = procedure (i: Integer);   procedure callback(i: Integer);
begin 
  if i = 0 then 
    showmessage('well')
  else 
    showmessage('bad');
end; procedure mycall(call: tcallback);
begin 
  call (Random(2));           //A回调C
end; begin 
  mycall(callback);           //B调用A，并且告诉A回调函数C是哪一下
end.

Answer 2

说得简单点：
假如说，主程序是UnitA，UnitA要调用B.dll，但B.dll也需要调用UnitA里面的过程ProcC，那么，UnitA就把这个ProcC的地址告诉B.dll，让B.dll通过这个地址去调用ProcC。这就是所谓的回调，即被调用方通过某种途径去调用这个调用方的某个过程。
这是我的理解