36 lines
542 B
ObjectPascal
36 lines
542 B
ObjectPascal
unit jtag.svfFreq;
|
|
|
|
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
|
|
|
|
{ TsvfAstFreq }
|
|
|
|
function TsvfAstFreq.AsText: AnsiString;
|
|
begin
|
|
result := 'Frequency ...';
|
|
end;
|
|
|
|
constructor TsvfAstFreq.Create(Freq: double);
|
|
begin
|
|
fFrequency := Freq
|
|
end;
|
|
|
|
end.
|