Question

请各位同仁帮忙看下下面delphi程序代码是什麽意思？

var
tmpList: TStringLiset;
begin
tmpList := TStringList.Create;
if tmpList.Count = 0 then Exit;
tmpList.Free;
end;

Answer 1

貌似你这段代码就是造成了一个内存泄露

tmpList := TStringList.Create; 创建一个TStringList类型的临时变量，
if (tmpList.Count = 0) then Exit; 刚创建时tmpList中没有字符串，tmpList.Count = 0为真，所以函数退出(Exit)
最后一句话tmpList.free得不到执行。所以tmpList这个临时变量没有被释放，它占用的内存就无法释放了。

追问

朋友，你好！在嗎？找你幫個忙？

追答

有什么问题？

追问

我在PC上的SQL查詢分析上保存了一個文件，都是不知道什麽 把他放到我當前用的電腦桌面上，你知道什麽操作嗎？哦對了，PC是個數據庫哦 PCanywhere

追答

不好意思，我不太明白你说的意思。没办法帮到你了。

Answer 2

创建TStringList

Answer 3

这个代码的意思是创建一个StringList，然后判断StringList中的数量如果为0的话，则退出。
的确是有内存泄漏，正确的写法应该是这样的：
var
tmpList: TStringList；
begin
tmpList:=TStringList.Create;
try
if tmpList.Count = 0 then Exit;
finally
tmpList.Free;
end;
end;

追问

你好，在嗎，現在又時間嗎?幫忙一下
在Private中定义 pnl_right: TPanel 什麽意思呀？什麽定义，请举个例子，谢谢~！