Verwende für Texte TStringList(TStrings) und für Dateien TStream(TFileStream/TMemoryStream), weil diese Klassen überall in LCL verwendet werden, wenn du es einmal lernst, dann bist du auf der sicheren Seite.
Deine Webseite kannst du mit TStringList so machen:
Code: Alles auswählen
var StrList: TStringList;
begin
StrList:= TStringList.Create;
StrList.Text:='<html lang="de">'+
'<head>'+
'<title>Meine Seite</title>'+
'<meta http-equiv="content-type" content="text/html; charset=utf-8" />'+
'<meta name="viewport" content="width=device-width, initial-scale=1">'+
'</head>'+
'<body>'+
'Willkommen.'+
'</body>'+
'</html>';
try
StrList.SaveToFile(ExtractFilePath(Application.ExeName)+'mysite.html');
except
MessageDlg('Ein Fehler ist beim Speichern aufgetreten.'+LineEnding+'Systemfehler-Nachricht:'+LineEnding+E.Message, mtError, [mbOK],0);
end;
StrList.Free;
Verein
Links
Suche