try this:
type
TMyTemplate = class(TFPTemplate)
private
procedure ReplaceMyTags(Sender : TObject; Const TagString : String;
TagParams:TStringList; Out ReplaceText : String);
public
constructor Create;
end;
procedure TMyTemplate.ReplaceMyTags(Sender : TObject; Const TagString :
String; TagParams:TStringList; Out ReplaceText : String);
begin
// use if-else if-else if your compiler version doesn't support case
statement with string variable
case TagString of
'name': ReplaceText := 'sysutils, classes';
'modules': ReplaceText := 'freevox';
end;
end;
constructor TMyTemplate.Create;
begin
inherited Create;
StartDelimiter := '<#';
EndDelimiter := '>';
OnReplaceTag := @ReplaceMyTags;
end;
begin
with TMyTemplate.Create do
try
FileName := 'e030.txt';
WriteLn(GetContent);
finally
Free;
end;
end.
if you want to use your style, you can try adapting
http://free-pascal-general.1045716.n5.nabble.com/file/n5710450/view.pp my
unit . It's more or less like what you want, only with more features as I
support parameters.
--
View this message in context:
http://free-pascal-general.1045716.n5.nabble.com/Generating-templates-with-FPTemplate-tp5710448p5710450.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
