35 lines
520 B
ObjectPascal
35 lines
520 B
ObjectPascal
unit jtag.svfAstPrint;
|
|
|
|
interface
|
|
uses
|
|
jtag.svfAstNode;
|
|
|
|
type
|
|
TsvfAstPrint = class( TsvfAstNode)
|
|
public
|
|
Text : AnsiString;
|
|
|
|
public
|
|
constructor Create( AText: AnsiString);
|
|
function AsText: AnsiString; override;
|
|
end;
|
|
|
|
|
|
implementation
|
|
uses
|
|
System.AnsiStrings;
|
|
|
|
{ TsvfAstPrint }
|
|
|
|
function TsvfAstPrint.AsText: AnsiString;
|
|
begin
|
|
result := Text
|
|
end;
|
|
|
|
constructor TsvfAstPrint.Create( AText: AnsiString);
|
|
begin
|
|
Text := AnsiReplaceText(AText, '"', '');
|
|
end;
|
|
|
|
end.
|