如何写个TStringList类型的函数？(0分)

S

SexyGG

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-18

• #1

返回值为Tstringlist的函数怎么写？<br>我试着写了,老是报错,所以才来麻烦大家~

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-18

• #2

function GetList: TStringList;<br>begin<br>&nbsp; Result := TStringList.Create;<br>&nbsp; Result.Add('hello');<br>end;<br><br>ShowMessage(GetList.Text);<br><br>

 

Y

ydejun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-18

• #3

来晚了一步，同上。

 

R

robinwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-18

• #4

function test:TStringList;<br>var<br>&nbsp; list:tstringlsit;<br>begin<br>&nbsp; list:=tstringlsit.create;<br>&nbsp; list.add('hello');<br>&nbsp; reslut:=list;<br>end;

 

S

smokingroom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-18

• #5

function GetStringList:TStringList;<br>begin<br>&nbsp; ...<br>&nbsp; Result:=TStringList.Create;<br>&nbsp; ...<br>end;<br>一般不會這樣寫,因為這違反了誰創建誰銷毀的原則,你在這個函數中創建了TStringList,<br>一定要記得在調用這個函數后將它銷毀.<br>var<br>&nbsp; List:TStringList;<br>begin<br>&nbsp; List:=GetStringList; &nbsp;//調用函數<br>&nbsp; List.Free;<br>end;

 

S

SexyGG

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-18

• #6

3Q