"Dibujando" caracteres en consola

[[nlsgarcia]]

AgustinOrtu,

Empezado por AgustinOrtu

..."Dibujando" caracteres en consola...encontré esta interesante pagina: Text to ASCII Art Generator...por arte de magia nos devuelve el texto...

Empezado por AgustinOrtu

..¿A alguien se le ocurre una mejor manera de hacer los Write?...

Revisa este código:

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  TextApp : Array[0..5] of String =
            (
             ' _   _      _                    _____                _       ',       
             '| \ | |    | |                  / ____|              (_)      ',
             '|  \| | ___| |___  ___  _ __   | |  __  __ _ _ __ ___ _  __ _ ',
             '| . ` |/ _ \ / __|/ _ \| |_ \  | | |_ |/ _` | |__/ __| |/ _` |',
             '| |\  |  __/ \__ \ (_) | | | | | |__| | (_| | | | (__| | (_| |',
             '|_| \_|\___|_|___/\___/|_| |_|  \_____|\__,_|_|  \___|_|\__,_|'
            );

procedure MsgApp(TextApp : Array of String);
var
   i : Integer;
begin
   for i := Low(TextApp) to High(TextApp) do
      Writeln(TextApp[i]);
   Readln;
end;

begin
  MsgApp(TextApp);
end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Imprime en Consola un mensaje contenido en un arreglo por medio de un procedimiento.

Espero sea útil

Nelson.