typeTFunc=procedure;procedure MyFunc;beginShowMessage('Run my func');end;procedure TForm1.Button1Click(Sender: TObject);varptr:Pointer;func:TFunc;begi... Read More
posted @ 2014-05-25 02:39 findumars Views(427) Comments(0) Diggs(0)