Question

delphi 7 superobject控件如何遍历子对象

我在D7中用不了FOR IN DO 这个循环语句，请问如何把
procedure TForm1.Button1Click(Sender: TObject);
var
item,jo: ISuperObject;
begin
jo := SO(Memo1.Text);
for item in jo do ShowMessage(item.AsJSon(False, False));
end;
中的for item in jo do 转换为DELPHI7的循环语句？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏100（财富值+成长值）

Answer 1

for i := jo.ControlCount-1 downto 0 do
begin
ShowMessage(jo.controls[i].AsJSon(False, False));
end;