unit jtag.svfAstFreq;

interface
uses
   jtag.svfAstNode;

type
   TsvfAstFreq = class( TsvfAstNode)
      private
         fFrequency: double;

      public
         function    AsText: AnsiString; override;
      public
         constructor Create(Freq: double);

      public
         property Frequency   : double read fFrequency;
   end;

implementation
uses
   System.SysUtils;

{ TsvfAstFreq }

function TsvfAstFreq.AsText: AnsiString;
begin
   result := Format('FREQUENCY %8.4e HZ;',[fFrequency])+#13#10;
end;

constructor TsvfAstFreq.Create(Freq: double);
begin
   fFrequency := Freq
end;

end.