备案

Question

德尔福记录帮手我有这样的代码：

type 
TSolution = record 
    x1, x2, i1, i2: double; 
end; 

TSupport = record helper for TSolution 
    function toFraction: string; 
end; 

而且我希望能够调用这样的内部（例如）按钮单击事件：

var k: TSolution; 
begin 

//... 
Memo1.Lines.Add(k.x1.toFraction); 
//... 

end; 

在哪里toFraction是我写的将double转换为fraction的函数。我认为记录帮手就是我需要的，但为什么这不起作用？

{ TSupport } 

function TSupport.toFraction: string; 
begin 
Result := TFunction.DoubleToFraction(self); 
end; 

如果你想知道，TFunction是一个类（在同一单元作为记录/记录助手），它具有DoubleToFraction类函数返回过程的字符串。

E2010不兼容的类型：“双师型”和“TSolution”

确定这是错误，但如果我不使用自话，我怎么可以把参数？参数可以是x1，x2，i1或i2，具体取决于我需要的。在上面的例子中，在Memo1中，我应该将x1（参数）转换为分数。在这里做什么？

---

我已经注意到，如果你写例如

TSupport = record helper for double 

然后自我的作品！基本上我想知道如何避免自我提及TSolution记录，而是涉及双重领域。

Answer 1

这是错误的上下文：你叫

k.x1.toFraction 

这意味着你调用一个函数toFraction对应于x1，但它是一个double，不TSolution。

您的辅助函数会被调用的形式类似于

k.toFraction 

我认为toFraction事先知道采取哪些变量x1, x2, i1, i2: double;的。否则，你可以写一个帮助双重。在@Remy勒博考虑

APENDED

您可以使用结构是这样的：

TMyDouble = record 
    private 
    class var FX: double; 
    public 
    class property X: double read FX write FX; 
    class operator Implicit(a: TMyDouble): double; 
    class operator Implicit(a: double): TMyDouble; 
    function toFraction: string; 
    end; 

function TMyDouble.toFraction: string; 
begin 
    result := FloatToStr(self.FX { .Fraction }); // or other FX.methods 
end; 

class operator TMyDouble.Implicit(a: TMyDouble): double; 
begin 
    result := FX 
end; 

class operator TMyDouble.Implicit(a: double): TMyDouble; 
begin 
    result.FX := a; 
end; 

它将效仿double功能，似乎双是一个纪录。