AgustinOrtu,
Cita:
|
Empezado por AgustinOrtu
..."Dibujando" caracteres en consola...encontré esta interesante pagina: Text to ASCII Art Generator...por arte de magia nos devuelve el texto...
|
Cita:
|
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.