用什么函数判断一个TStringList是否存在，存在则free它？对于form,是用assigned，对于TString用什么呢？

Question

用什么函数判断一个TStringList是否存在，存在则free它？对于form,是用assigned，对于TString用什么呢？

Answer 1

if list<>nil then free

Answer 2

list=nil 或者用异常try
   lst.add('');
except
   Alert('lst 已经不存在了');
end;

Answer 3

可以用assigned（）的，
这个函数就是判断参数是不是nil

Answer 4

strlist.free后好像strlist<>nil的,对吧?

Answer 5

可是一个stringlist被Free之后也可能不是Nil啊！
不能用list<>nil来判断吧？
try
  lst.add('');
except
  //万一被释放了，不会弹出系统警告框么，我最怕这个了
end;

Answer 6

function myassigned(obj:tobject):boolean;
begin
  result:=(obj<>nil);
end;

Answer 7

为什么不在释放之后把他设成nil呢？
这部就可以了么？
难道你不知道什么时候会释放他？
或者直接用freeandnil(stringlist);