38 lines
604 B
ObjectPascal
38 lines
604 B
ObjectPascal
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.
|