开发笔记（2020-8-2)

发表于 更新于 阅读次数：

2020-8-2

delphi Assigned的小坑

原来以为对象是否有实例可用assigned来检测，结果我错了，踩坑了！

对象Free以后并不将指针置为nil，而是继续指向原来的地址，这时用Assigned检测仍返回true！

安全的方法是：Free之后手动置为nil

1
2
s.free;
s:=nil;

:BTW

  • 把image assign到一个jpg后，就不允许再line\rectangle等手工画图了

  • timage控件load一个jpg后，要使其随着窗口大小的变化自动调整，最好把其放进一个panel里，并设置

1
2
3
4
img1.AutoSize:=true;
img1.Center:=true;
img1.Stretch:=true;            
img1.Proportional:=true;  //保持原始纵横比