Sowas wie #Include für HTML?

[SubData]

Also ich arbeite mit folgendem Code:

In die HTML Datei:

Code:

Delphi-Quellcode:

function ReplaceINC(Doc: String): String;
var
  S1, S2, S3 : String;
  P1, P2, P3 : Integer;
begin;
[...] // Hier ist noch anderweitiger Code von mir...
  while Pos('<!--INC:', Doc) > 0 do
  begin
    P1 := Pos('<!--INC:', Doc);
    P2 := P1 + 8;
    P3 := Pos(':INC-->', Doc) - P2;
    S1 := System.Copy(Doc, P2, P3);
    Delete(Doc, P1, (P3 + 15));
    Insert(LoadTemplateNoVars('inc/' + S1 + '.html'), Doc, P1);
  end;
end;

LoadTemplateNoVars ist ne Funktion von mir, die einfach nur die HTML Datei zurückgibt (Also den Inhalt)

Edit:

Du kannst folgendes
LoadTemplateNoVars('inc/' + S1 + '.html') auch einfach durch ne Variable ersetzen ... wie es beliebt :>