blocks|key|2542478|text|你是说像这样的东西吗？|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2542479|原始方法:-|2542480|method+Something.SomeMethod(a:Integer;b:Integer;c:Integer):+Integer;
begin
++++result:=b%2Bc;
end;|code-block|syntax|javascript|2542481|新方法：-|2542482|begin
+if+(a+>+0)+then+
+begin
+++result+:=+(b+%2B+c);
+++exit
+++end;
+begin
+result+:=+1000;
+exit
end|2542483|它的方法级方面如下所示|2542484|++[AttributeUsage(AttributeTargets.Method)]
++Class1Attribute+=+public+class(System.Attribute,
++++IMethodImplementationDecorator)
++private
++protected
++public
++++method+HandleImplementation(Services:+RemObjects.Oxygene.Cirrus.IServices;+aMethod:+RemObjects.Oxygene.Cirrus.IMethodDefinition);
++end;

implementation

method+Class1Attribute.HandleImplementation(Services:+RemObjects.Oxygene.Cirrus.IServices;+aMethod:+RemObjects.Oxygene.Cirrus.IMethodDefinition);
begin

++var+newVersion:=new+ResultValue();

++var+newAssignment:=new+AssignmentStatement(newVersion,new+DataValue(1001));

++var+p1:=+new+ParamValue(0);

++aMethod.SetBody(Services,method
++++begin
++++++if+(unquote<Integer>(p1)>0)+then
++++++begin
++++++++Aspects.OriginalBody;
++++++end
++++++else
++++++begin
++++++++unquote(newAssignment);
++++++end;
++++end);

end;|2542485|entityMap^0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|T|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|V|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|W|8|@]|9|@]|A|$G|H]]|$1|M|3|N|5|6|7|X|8|@]|9|@]|A|$]]|$1|O|3|P|5|F|7|Y|8|@]|9|@]|A|$G|H]]|$1|Q|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]]|R|$]]

Do you mean something like this ?

Original method :-

<pre><code>method Something.SomeMethod(a:Integer;b:Integer;c:Integer): Integer;
begin
 result:=b+c;
end;
</code></pre>

New method:-

<pre><code>begin
 if (a &gt; 0) then 
 begin
 result := (b + c);
 exit
 end;
 begin
 result := 1000;
 exit
end
</code></pre>

The method level aspect for that would look like this 

<pre><code> [AttributeUsage(AttributeTargets.Method)]
 Class1Attribute = public class(System.Attribute,
 IMethodImplementationDecorator)
 private
 protected
 public
 method HandleImplementation(Services: RemObjects.Oxygene.Cirrus.IServices; aMethod: RemObjects.Oxygene.Cirrus.IMethodDefinition);
 end;

implementation

method Class1Attribute.HandleImplementation(Services: RemObjects.Oxygene.Cirrus.IServices; aMethod: RemObjects.Oxygene.Cirrus.IMethodDefinition);
begin

 var newVersion:=new ResultValue();

 var newAssignment:=new AssignmentStatement(newVersion,new DataValue(1001));

 var p1:= new ParamValue(0);

 aMethod.SetBody(Services,method
 begin
 if (unquote&lt;Integer&gt;(p1)&gt;0) then
 begin
 Aspects.OriginalBody;
 end
 else
 begin
 unquote(newAssignment);
 end;
 end);

end;
</code></pre>

Background

This question relates to the new <a href="http://prismwiki.codegear.com/en/Cirrus" rel="nofollow noreferrer">Cirrus</a> infrastructure for Aspect Oriented Programming in Delphi Prism.

I currently have an aspect which I am Auto-Injecting into a class and am attempting to modify the target code using aMethod.SetBody function. I have structured my code thus far using the Logging example code found on the <a href="http://prismwiki.codegear.com/en/Cirrus_Introduction" rel="nofollow noreferrer">Cirrus Introduction</a> documentation wiki as a basis.

Question

How can I access the Result of the function being injected into, both with and without the original function body being executed?

I would like to be able to set the result of the function bypassing the call to OriginalBody in one code path and as the other code path to call the OriginalBody and use the subsequent Result of the OriginalBody in my Aspect code.
I originally thought that this might be the intended purpose of the <a href="http://prismwiki.codegear.com/en/Cirrus_Overview" rel="nofollow noreferrer">Aspects.RequireResult</a> method but this appears to force execution of the OriginalBody in my case, causing code duplication.

Delphi Prism Cirrus accessing and setting the Result of a function

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

背景这个问题与Delphi Prism中面向方面编程的新基础设施有关。我目前有一个方面，我正在自动注入到一个类中，并尝试使用aMethod.SetBody函数修改目标代码。到目前为止，我已经使用文档维基上的日志记录示例代码构建了我的代码。问题在执行和不执行原始函数体的情况下，如何访问被注入的函数的结果？我希望能够在一个...

Delphi Prism Cirrus访问和设置函数的结果-腾讯云开发者社区-腾讯云

问Delphi Prism Cirrus访问和设置函数的结果
EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Delphi Prism Cirrus访问和设置函数的结果EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Delphi Prism Cirrus访问和设置函数的结果
EN