In deinem Beispiel kannst du das so nicht verwenden...
Delphi-Quellcode:
var
S:
String;
F: Textfile;
begin
// Richtig Sinn macht das nur, wenn man "S" entweder aus einer Datei oder einer Resource lädt!
// Hier jetzt der einfachheit halber einfach mal fest zugewiesen.
S := '
<html>' + #13#10 +
'
<head><title>%TITLE%</title></head>' + #13#10 +
'
<body bgcolor="%BGCOLOR%">...';
// usw und so fort...
S := StringReplace(S, '
%TITLE%', '
Dies ist der Seitentitel', [rfReplaceAll, rfIgnoreCase]);
S := StringReplace(S, '
%BGCOLOR%', '
#beef00', [rfReplaceAll, rfIgnoreCase]);
// ... so lange weitermachen, bis alle Variablen ersetzt sind
AssignFile(F, '
foo.html');
Rewrite(F);
Write(F, S);
CloseFile(F);
end;
Dieser Code ist jetzt ungestestet und nur mal eben so hingehackt... aber ich hoffe, er verdeutlicht wie ich es funzen soll.
Gruß
Wormid
Zitat
Baum-Darstellung
