Fields下增加一个AdapterField

AdapterField的onDisplayText事件代码如下

[code delphi]
procedure TPageProducerPage1.AdapterFieldGetDisplayText(Sender: TObject;
var Value: String);
begin
Value:='s';//返回字符串
end;
[/code]

网页中使用下面的语句，其中带有一个参数'asdfg'

[code xml]
<%=EndUser.AdapterField('asdfg').DisplayText%>
[/code]


如何在AdapterField的onDisplayText事件代码中获得所带的参数串？

新的获得AdapterField所带参数的onDisplayText事件代码如下

[code delphi]
procedure TPageProducerPage1.AdapterFieldGetDisplayText(Sender: TObject;
var Value: String);
var s:string;
begin
Value:='s';//返回字符串

s:=获得所带的参数串;{请问这里如何写，我用的是delphi7}

Value:=Value s;
end;
[/code]

編輯記錄