Que tal compañeros del club, resulta que estaba creando una pequeña applicacion que gestionaba backups automaticos y genere una aplicacion de consola para ir mostrando una suerte de log de sucesos
Cuestion, para añadirle un toque "profesional" se me ocurrio añadirle el nombre de la empresa al inicio de todo (tipico de las viejas aplicaciones de consola de antaño
)
Como no queria romperme la cabeza haciendo a mano el trabajo sucio para dibujar las letras usando caracteres, llega Google al rescate y encontre esta interesante pagina:
Text to ASCII Art Generator, que nos permite elegir una fuente e ingresar el texto deseado, por arte de magia nos devuelve el texto que tanto nos gusta listo para imprimir por pantalla
El resultado:
Código Delphi
[-]
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
begin
try
Writeln(' ______ _ _ _____ _ _ _ ');
Writeln(' / _____) | | | (____ \ | | | | (_) ');
Writeln('| / | |_ _| | _ _ \ \ ____| |____ | | _ _ ');
Writeln('| | | | | | | || \ | | | / _ ) | _ \| || \| | ');
Writeln('| \_____| | |_| | |_) ) | |__/ ( (/ /| | | | | | | | | ');
Writeln(' \______)_|\____|____/ |_____/ \____)_| ||_/|_| |_|_| ');
Writeln(' |_|');
Writeln;
Readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
Saludos
PD: Si a alguien se le ocurre una mejor manera de hacer los write, que a mi me parece que esa es una forma media "chapucera"