Este código está basado en la escritura clásica de un fichero de texto con Delphi 7. Sobre esta idea he diseñado estas líneas, ya que el lenguaje HTML no es más que un fichero de texto el cual puede ser modificado utilizando el editor de texto universal llamado "Bloc de notas" y para evitarlo está esta forma que para mi idea es efectiva, pero para que realmente sea efectivo, el programa debe ser ejecutado, en sí el código funciona como re-escritor (Borra el contenido del fichero completo y coloca el suyo). Aquí les muestro el código, lo que hagan con él es decisión de cada cual, yo les doy la idea.
Código: Seleccionar todo
var
Form1: TForm1;
htmlfile: textfile;
escribir: string;
procedure TForm1.Button1click(Sender:TObject...
begin
escribir:='<html><head><title>HTML con Delphi 7</title></head><body>HTML con Delphi 7</body></html>';
assignfile(htmlfile,'fichero.html');
rewrite(htmlfile);
write(htmlfile,escribir);
closefile(htmlfile);
end;
La variable escribir es de tipo string por lo que se puede admitir que el código HTML sea cargado desde un Edit, memo u otro componente con la propiedad text que permite utilizar el tipo de dato string.
