| Class TxdkSnippet (unit XDKSnips) |
TComponent
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
destructor Destroy;
procedure DoResultCode;working with result code snippet } // DoResultCode analize code template and replace all params to corresponding values // sorry, this method is working properly, but not optimized .
procedure ExtractParams;
function ParamsCount:integer;
function ResultCode:TStrings;
function ResultCodeStream:TStream;
function ResultCodeText:string;
function GetCodeStream:TStream;
function GetCodeText:string;
function GetParamValue(const ParamName:string):string;
procedure SetCode(Value:TStrings);
procedure SetCodeStream(Value:TStream);
procedure SetCodeText(Value:string);
procedure SetParams(Value:TStrings);working with params (and values)
procedure SetParamValue(const ParamName:string; const Value:string);| Properties |
property Code : TStrings
property ParamBracket : char
property CodeStream : TStream
property CodeText : string
property Params : TStrings
property ParamValues : string| Events |
| Variables |
FCode : TStrings;
FParamBracket : char;
FParams : TStrings;
FResultCode : TSTrings;| Constructors |
constructor Create(AOwner:TComponent);==================================================================== ==================================================================== TxdkSnippet
| Functions |
destructor Destroy;
procedure DoResultCode;analize code and fill list of params
working with result code snippet } // DoResultCode analize code template and replace all params to corresponding values // sorry, this method is working properly, but not optimized ... :(
procedure ExtractParams;analize code and replace params to corresponding values in FResultCode; **you need explicit call DoResultCode** in your methods before getting result code.
ExtractParams analize code template and fill list of params (each param in list is unique
function ParamsCount:integer;
function ResultCode:TStrings;
function ResultCodeStream:TStream;create new TMemoryStream - you need free it after using!
function ResultCodeText:string;
function GetCodeStream:TStream;
function GetCodeText:string;
function GetParamValue(const ParamName:string):string;
procedure SetCode(Value:TStrings);working with code template - 'snippet'
procedure SetCodeStream(Value:TStream);
procedure SetCodeText(Value:string);
procedure SetParams(Value:TStrings);create new stream; you need free it after using!
working with params (and values)
procedure SetParamValue(const ParamName:string; const Value:string);| Properties |
property Code : TStrings
property ParamBracket : char
property CodeStream : TStreamcreate new TMemoryStream - you need free it after using!
property CodeText : string
property Params : TStrings
property ParamValues : string| Events |
| Variables |
FCode : TStrings;
FParamBracket : char;
FParams : TStrings;
FResultCode : TSTrings;