paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 00:27:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Added ability to list values by index instead of name

Browse Source 
git-svn-id: trunk@15215 -
This commit is contained in:
joost 2010-05-03 14:30:11 +00:00
parent d227a9799b
commit 8d0444353c
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/fcl-base/src/fptemplate.pp
View File

@ -61,7 +61,10 @@ Type
FOnGetParam: TGetParamEvent; //Event handler to use for templates containing simple tags only (ex: {Name})
FOnReplaceTag: TReplaceTagEvent; //Event handler to use for templates containing tags with parameters (ex: <#TagName paramname1="paramvalue1" paramname2="paramvalue2">)
function GetDelimiter(Index: integer): TParseDelimiter;
function GetNameByIndex(index : Integer): String;
function GetValue(Key : String): String;
function GetValueByIndex(index : Integer): String;
function GetValueCount: Integer;
procedure SetDelimiter(Index: integer; const AValue: TParseDelimiter);
procedure SetValue(Key : String; const AValue: String);
Function IntParseString(Src : String) : String;
@ -83,6 +86,9 @@ Type
Property ParamEndDelimiter : TParseDelimiter Index 4 Read GetDelimiter Write SetDelimiter;
Property ParamValueSeparator : TParseDelimiter Index 5 Read GetDelimiter Write SetDelimiter;
Property Values[Key : String] : String Read GetValue Write SetValue; // Contains static values. //used only when AllowTagParams = false
Property ValuesByIndex[index : Integer] : String Read GetValueByIndex; // Contains static values. //used only when AllowTagParams = false
Property NamesByIndex[index : Integer] : String Read GetNameByIndex; // Contains static values. //used only when AllowTagParams = false
Property ValueCount: Integer Read GetValueCount; //used only when AllowTagParams = false
Property Recursive : Boolean Read FRecursive Write FRecursive; //used only when AllowTagParams = false
Property AllowTagParams : Boolean Read FAllowTagParams Write FAllowTagParams;
end;
@ -178,6 +184,21 @@ begin
end;
end;
function TTemplateParser.GetValueByIndex(index : Integer): String;
begin
Result:='';
If Assigned(FValues) then
Result:=TStringItem(FValues.Objects[index]).Value;
end;
function TTemplateParser.GetValueCount: Integer;
begin
if assigned(FValues) then
result := FValues.Count
else
result := 0;
end;
function TTemplateParser.GetDelimiter(Index: integer): TParseDelimiter;
begin
case Index of
@ -190,6 +211,13 @@ begin
end;
end;
function TTemplateParser.GetNameByIndex(index : Integer): String;
begin
Result:='';
If Assigned(FValues) then
Result:=FValues.ValueFromIndex[index];
end;
procedure TTemplateParser.SetDelimiter(Index: integer;
const AValue: TParseDelimiter);
begin