Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.221.187.121] |
|
Сообщ.
#1
,
|
|
|
Ну грубо говря такой пример, как проверить что в процедуре
TestProc параметр Proc является nil или не является nil (само собой без передачи дополнительного параметра где это символизируется) procedure TForm1.NotyfReport(Sender: TObject; Msg: string; Code: Integer); begin Memo3.Lines.Add( '(' + Code.ToString + ') ' + Msg) end; type TCallbackProck = procedure(v: Integer; var a: boolean); function TestProc(s: string; Proc: TCallbackProck): Integer; var a: Boolean; v: Integer; I: Integer; begin Randomize; for I := 0 to 100 do begin v := Random(99); Proc(v, a); if a then Break; end; v := 100; end; procedure CallbackProck(v: Integer; var a: boolean); begin Form1.Memo2.Lines.Add(Form1.Memo2.Lines.Count.ToString + ': ' + v.ToString ); a := v > 70; end; procedure TForm1.Button1Click(Sender: TObject); begin TestProc('s', CallbackProck); TestProc('s', nil); end; |
Сообщ.
#2
,
|
|
|
Assigned
|