M
mycwcgr_bak
Unregistered / Unconfirmed
GUEST, unregistred user!
我们知道Tstringlist类型的变量，在使用完成后要用Free释放它
下面这个函数 fuction cw:tstringlist
只有 Result:=Tstringlist.create;语句，而无法使用Free语句，请问是不是不需要
人工写，或者是程序在self.ListBox1.items.Assign(cw);语句后自动释放cw
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
Function cw:tStringlist;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
function TForm1.cw: tStringlist;
begin
Result:=Tstringlist.create;
Result.Add('Item1');
Result.Add('Item2');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
self.ListBox1.items.Assign(cw);
end;
end.
下面这个函数 fuction cw:tstringlist
只有 Result:=Tstringlist.create;语句，而无法使用Free语句，请问是不是不需要
人工写，或者是程序在self.ListBox1.items.Assign(cw);语句后自动释放cw
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
Function cw:tStringlist;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
function TForm1.cw: tStringlist;
begin
Result:=Tstringlist.create;
Result.Add('Item1');
Result.Add('Item2');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
self.ListBox1.items.Assign(cw);
end;
end.