打印复数

时间:2017-12-22 18:38:14

标签: delphi complex-numbers

使用embarcadero XE7和System.VarCmplx - 需要将复数表示为字符串。创建复数的简单示例,其目的是在表单的标题中显示它。我的问题是我无法弄清楚如何将复数转换为字符串 - 应该是' 1.23 + 4.56i'。

unit Unit57;
interface
uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, 
    System.Classes, Vcl.Graphics,
    System.VarCmplx,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
    TForm57 = class(TForm)
      procedure FormCreate(Sender: TObject);
    end;

var
  Form57: TForm57;

implementation

{$R *.dfm}

procedure TForm57.FormCreate(Sender: TObject);
v : Variant;
begin
  v := VarComplexCreate( 1.23, 4.56 );
  // following does not work
  Caption := v.AsString;
end;
end.

1 个答案:

答案 0 :(得分:4)

实际上非常简单:

  v := VarComplexCreate(1.23, 4.56);
  Caption := v;

在我的德语Windows上,显示

1,23 + 4,56i

无需.AsString

如果您想要自定义格式,您可以直接使用实部和虚部,并执行以下操作:

var
  A, B: Extended;
  ...
  A := v.Real;
  B := v.Imaginary;
  Caption := Format('%.3f+%.3fi', [A, B], TFormatSettings.Invariant);

显示:

1.230+4.560i

注意:实现中有一个 public 属性AsString,但显然只能从代码中访问已发布的属性。我猜测它已公开,因为用户不需要它。

请注意,您的代码无法编译。虽然看起来好像是从Delphi编辑器中复制并粘贴了它,但程序中没有正确的var部分,因此无法进行编译。请始终使用复制和粘贴。

通过 Hallvard Vassbotn ,使用扩展记录而不是变体,实际上有一个(据我所知)更好的复杂数字的实现。它附带的样本(通常)与Delphi一起安装。只需查看<your samples dir>\Delphi\RTL\ComplexNumbers目录即可。这使用扩展记录,因此可以像普通值类型一样使用,例如Double或Integer。