基础问题！

Question

Function fGetFieldName(sTableName : String; ADOQry : TADOQuery): TStringList;
var
  i: Integer;
  sList : TStringList;
begin
  sList := TStringList.Create();
  ExecSQL(ADOQry, 'Select * from ' + sTableName, 0);
  for i := 0 to  ADOQry.FieldCount - 1 do
  begin
    sList.Add( ADOQry.Fields[i].FieldName);
  end;
  Result := sList;    // -------    这儿的sList 要不要释放，怎么释放！
end;
如果说TStringList是个指针的话，那么返回值如 Integer,String类型有何区别！

Answer 1

procedure fGetFieldName(sTableName : String; ADOQry : TADOQuery;sList:Tstringlist);
begin
 ..
end;

Answer 2

Result := sList;    // -------    这儿的sList 要不要释放，怎么释放！// 你如果释放了，别人怎么能用呀。方法可以有几种 楼上的也是一种 将sList 做为 in/out参数还有就是通过全局变量共享之类的 上面那种比较好