一个简单的编程问题 ( 积分: 5 )

首先我调用TextList('MateMb_Month', Text);方法
下面是TextList('MateMb_Month', Text);方法的实现:
function TDModule.TextList(Value, Text: String): Integer;
var
List: TList;
begin
List := TList.Create;
DataList('Text', Value, List);
Text := PTextData(List.Items[List.Count - 1])^.Data;
// 给Text付值
Result := 0;
end;

执行完方法后,我想把Text里的数付给另外一个变量STR,但大家知道,出了这个方法,Text将失效,请问这里怎么处理,熟悉编程的人一定很快回答到的

可以改写此过程让text成为返回值，或者使用引用参数传递
function TDModule.TextList(Value,Var AText: String): Integer;
这样的话，此方法内处理的就是你传进去的ｔｅｘｔ了 ，相当于传了指针进去

接受答案了.