Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#15

Re: Attribute die ich gar nicht explizit erstellt habe

  Alt 29. Mai 2007, 10:29
Hallo Raphael,

Zitat von cherry:
... Aber mit der Verwendung von TPageProducer habe ich so meine Bedenken, ich hab noch nie was mit dieser Komponente gemacht, denkst du es wäre wirklich sinnvoll da ich die Dateien nur erstellen und nicht lesen muss. ...
Gerade das war der Grund für meine Überlegung.

Hier eine Andeutung für eine mögliche Vorgehensweise:

Delphi-Quellcode:
procedure TDemoForm.FormCreate(Sender: TObject);
begin
  Params := TStringList.Create;
  PageProducer.HTMLDoc.LoadFromFile(fnTemplate);
end;

procedure TDemoForm.Button1Click(Sender: TObject);
begin
  Params.Clear;
  Params.Values['userName'] := 'sa';
  ShowMessage(PageProducer.Content);
end;

procedure TDemoForm.PageProducerHTMLTag(Sender: TObject; Tag: TTag;
  const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
  case Tag of
    tgCustom: ReplaceText := Params.Values[TagString];
    else ReplaceText := Format('', [TagString])
  end;
end;
Im Template steht dann unter anderem so etwas:

XML-Code:
...
<userName><#userName></userName>
...
Das lässt sich nach Belieben verfeinern.

Freundliche Grüße
  Mit Zitat antworten Zitat