在procedure TMAINFORM.Button2Click(Sender: TObject);
var
lTemp : TStrings;
lpos, lcon, lper, lOrgExpr : String;
i : Integer;
begin
MemoResult.Clear;
lpos := '''BM1''';
lcon := '''GW1''';
lper := '''RY1''';
lOrgExpr := 'orgkey('+lpos+','+lcon+','+lper+')';
lTemp := TStringList.Create;
try
OrgSys.OrgSystem.GetBizURLsByOrgExpr(lOrgExpr, lTemp);
MemoResult.Clear;
MemoResult.Lines.AddStrings(lTemp);
finally
lTemp.Free;
end;
end;
这个例子中我要把获取到的URL直接赋值给莫一字段应该怎么做? |