X xianguo Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-04 #2 if not Assigned(StringList1) then StringList1 := TStringList.Create;
R rwlin Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-04 #4 Var ts: tstringlist; begin ts := tstringlist.Create; ts.Clear; ts.Add('123'); If ts <> Nil then ShowMessage(IntToStr(ts.Count)); freeandnil(ts); If ts <> Nil then ShowMessage(IntToStr(ts.Count)); end;
Var ts: tstringlist; begin ts := tstringlist.Create; ts.Clear; ts.Add('123'); If ts <> Nil then ShowMessage(IntToStr(ts.Count)); freeandnil(ts); If ts <> Nil then ShowMessage(IntToStr(ts.Count)); end;
W wksdgy Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-04 #5 我的问题是 如果有ts: tstringlist;这个变量，我没有ts := tstringlist.Create，那么我怎么判断 ts没有创建？
G guanglb Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-05 #6 //最笨的方法 procedure TForm1.FormCreate(Sender: TObject); var vStr:TStringList; begin try vStr.Add('12'); except Caption:='vStr Not Create' end; Caption:=vStr.Text; end;
//最笨的方法 procedure TForm1.FormCreate(Sender: TObject); var vStr:TStringList; begin try vStr.Add('12'); except Caption:='vStr Not Create' end; Caption:=vStr.Text; end;
R rwlin Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-09 #9 没理解保护模式的原理 try except end 在调试、编译的时候是会出现异常的，但是在脱离ide环境程序运行时候是正常的；
