38 lines
577 B
ObjectPascal
38 lines
577 B
ObjectPascal
unit jtag.svfAstComment;
|
|
|
|
interface
|
|
uses
|
|
jtag.svfAstNode;
|
|
|
|
type
|
|
TsvfAstComment = class( TsvfAstNode)
|
|
private
|
|
fComment : AnsiString;
|
|
|
|
public
|
|
function AsText: AnsiString; override;
|
|
|
|
public
|
|
constructor Create(Comment: AnsiString);
|
|
|
|
public
|
|
property Comment : AnsiString read fComment;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TsvfAstEndDR }
|
|
|
|
function TsvfAstComment.AsText: AnsiString;
|
|
begin
|
|
result := fComment;
|
|
end;
|
|
|
|
constructor TsvfAstComment.Create(Comment: AnsiString);
|
|
begin
|
|
fComment := Comment +#13#10
|
|
end;
|
|
|
|
end.
|