paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added ParseFiles

Browse Source 
git-svn-id: trunk@21977 -
This commit is contained in:
michael 2012-07-27 11:41:44 +00:00
parent a7311f1348
commit 7976add94b
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -78,6 +78,7 @@ Type
Function ParseString(Src : String) : String;
Function ParseStream(Src : TStream; Dest : TStream) : Integer; // Wrapper, Returns number of bytes written.
Procedure ParseStrings(Src : TStrings; Dest : TStrings) ; // Wrapper
Procedure ParseFiles(Const Src,Dest : String);
Property OnGetParam : TGetParamEvent Read FOnGetParam Write FOnGetParam; // Called if not found in values //used only when AllowTagParams = false
Property OnReplaceTag : TReplaceTagEvent Read FOnReplaceTag Write FOnReplaceTag; // Called if a tag found //used only when AllowTagParams = true
Property StartDelimiter : TParseDelimiter Index 1 Read GetDelimiter Write SetDelimiter;// Start char/string, default '}'
@ -592,6 +593,25 @@ begin
Dest.Add(ParseString(Src[i]));
end;
procedure TTemplateParser.ParseFiles(const Src, Dest: String);
Var
Fin,Fout : TFileStream;
begin
Fin:=TFileStream.Create(Src,fmOpenRead or fmShareDenyWrite);
try
Fout:=TFileStream.Create(Dest,fmCreate);
try
ParseStream(Fin,Fout);
finally
Fout.Free;
end;
finally
Fin.Free;
end;
end;
{ TFPCustomTemplate }
procedure TFPCustomTemplate.GetParam(Sender: TObject; const ParamName: String; out AValue: String);