您所在位置：主题：一个简单的编程问题
channelxp
[专家分：20] 发布于 2007-08-08 10:06:00
首先我调用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将失效,请问这里怎么处理,熟悉编程的人一定很快回答到的
下面是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将失效,请问这里怎么处理,熟悉编程的人一定很快回答到的