码农的笔记

摘要： 开发环境Delphi7 这个例子还没有写完 Delphi多态性的实现有点资料，仅供参考！ 效果图： 这几行代码是纠错用的 1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 vp:Pointer; 4 begin 5 vp:=pinte 阅读全文