关于函数返回抽象类TStrings为空的问题

[yuzhizhi]

在操作一个函数时，需要返回抽象类TStringS。得到的值为空


private
{ Private declarations }
Function getList:TStringS;
- - - - - -
Function TForm1.getList:TStringS;
var
aa: TStringList;
i: integer;
str: string;
begin
aa := TStringList.Create;
aa.Add('abc'); aa.Add('def'); aa.Add('ghi');
Result:=aa;
FreeAndNil(aa); ---》这里释放对象，返回为空，如果不释放，为正确的。难道调用这个对象外面释放吗？
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ts: TStringList;
begin
ts := TStringList.Create;
ts.Assign(getList);
ShowMessage(ts.Text); ---》这里为空
FreeAndNil(ts);
end;

[tanqth]

aa := TStringList.Create; 创建后，对像其实是存在的，只是没有List内容 aa.Add('abc'); aa.Add('def'); aa.Add('ghi'); 这里确实是为List增加了内容， Result:=aa; 这里是说需要让函数返回aa，但并不是说这里就直接返回 FreeAndNil(aa); 这里你释放了对像，整个对像为空的了。 后面函数返回出来的aa就是空的。 所以，当你getList后，你只能得到一个nil 解决办法，可以使用全局变量。

[doloopcn]

你应该将Strings的对象传过去，而不是将Strings的对象返回
一般情况下，建议使用TStringList,不建议使用TStrings

private
{ Private declarations }
procedure getList(theList:TStrings);
- - - - - -
procedure TForm1.getList(theList:TStringS);
var
i: integer;
str: string;
begin

theList.Add('abc');
theList.Add('def');
theList.Add('ghi');


end;

procedure TForm1.Button1Click(Sender: TObject);
var
ts: TStringList;
begin
ts := TStringList.Create;
getList(ts);
ShowMessage(ts.Text); ---》这里为空
FreeAndNil(ts);
end;

[BlueStorm]

Result和aa都是指向同一个StringList的指针， aa指向的StringList释放了，Result指向的StringList当然也已经释放了。

[BlueStorm]

Result:=aa;是指针赋值，不是对象赋值。 解决方法： Result ：= TStringList.Create; Result.Assign(aa); //或Result.Text := aa.Text;

[yuzhizhi]

明白了，受教了，谢谢各位。

[大肚肥肥]

引用 2 楼 doloopcn 的回复:

你应该将Strings的对象传过去，而不是将Strings的对象返回 一般情况下，建议使用TStringList,不建议使用TStrings private { Private declarations } procedure getList(theList:TStrings); - - - - - - procedure TForm1.getList(theList:TStringS); var i: integer; str: string; begin theList.Add('abc'); theList.Add('def'); theList.Add('ghi'); end; procedure TForm1.Button1Click(Sender: TObject); var ts: TStringList; begin ts := TStringList.Create; getList(ts); ShowMessage(ts.Text); ---》这里为空 FreeAndNil(ts); end;

说错了，是支持3楼的思路

[yuzhizhi]

To tanqh: 谢谢你的回复，使用全局变量也是可行，不是我想要的结果。 To doloopcn:抽象类 的确不能做为返回，你使用的方法也是可行。做为代参可以。 To BlueStorm: 抽象类的问题，你的方法可行。但疑问来了，返回的Result如何释放。交由内存管理--函数堆来处理吗？

[BlueStorm]

procedure TForm1.Button1Click(Sender: TObject); var ts: TStringList; begin ts ：= getList; ShowMessage(ts.Text); ---》这里为空 FreeAndNil(ts); end;

[BlueStorm]

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function GetList: TStrings;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.GetList: TStrings;
begin
  Result := TStringList.Create;
  Result.Add('abc');
  Result.Add('def');
  Result.Add('ghi');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ts: TStrings;
begin
  ts := GetList;
  ShowMessage(ts.Text);
  ts.Free;
end;

end.

[日立奔腾浪潮微软松下联想]

与抽象类没有关系，只是因为楼主的代码把返回对象提前释放了
在delphi中，抽象类也可以实例化，这是与C++的对象模型的一个重要区别，在C++中实例化抽象类是一个错误，在Delphi中只是一个警告