4 respuestas en este tema

[armadillo]

Hola Amig@s!!
Hace mucho tiempo pero mucho tiempo que no toco la consola (Me refiero a nivel Programación)..  quizás por nostalgia decidí hacer una pequeña aplicación en FreePascal para consola de uso personal...
Uso Linux y FreePascal con el entorno de Typhon (Un Clon de Lazarus... Muy recomendable por cierto), bien el problema con el que me he encontrado es que los caracteres especiales, los ASCII que estan por encima del 127 no se ven correctamente ... o sea que los "dibujos" que pueda hacer como lineas o recuadros en pantalla se ven fatal, a si mismo los acentos y ETC... Etc...
He logrado que se vea  correctamente pero he tenido que configurar la Consola como "CodePage IBM850", esto lo se despues de probar con una veintena de opciones  ,  y la verdad quiero que este en "CodePage UTF-8"
Hay alguna directiva en el compilador para configurar esto?
O alguna función o procedimiento que deba poner en la APP?

Desde ya muchas Gracias!!!

[enecumene]

Prueba lo siguiente:

delphi

program AppConsola;
 
{$mode objfpc}{$H+}
{$APPTYPE CONSOLE}
 
uses
  {$IFDEF UNIX}
    {$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}
  {Widestring manager}
  cwstring,
  {$ENDIF}
  {$IFDEF WINDOWS}
  Windows,
  {$ENDIF}
  Classes
  ;
 
var
CadenaUTF8: string;
 
begin
{$IFDEF WINDOWS}
SetConsoleOutputCP(CP_UTF8);
{$ENDIF}
CadenaUTF8:= 'aaachúúú, pésimo, Panamá';
writeln ('plano: ' + CadenaUTF8);
end.

Nota sólo sirve a partir de Windows Vista para arriba.

 

Saludos.

[monchito_elroro]

Para mostrar caracteres especiales yo suelo usar cualquiera de estos codes:

php

ShowMessage(UTF8Encode('año de acción'));  // este es el que más uso
ShowMessage(UTF8ToSys('año de acción'));

Saludos.

[armadillo]

Hola Amigos,

Gracias por vuestras prontas respuestas, pero  todas estas opciones funcionan en windows, en Linux para ser mas exacto en Fedora 22 no funcionan, y por lo que vi por ahi solo funcionan en Windows...

La verdad que cambiando en la consola el set de caracteres, me funciona, ya os digo que tengo que poner la codificación de carateres de la consola en "Occidental IBM850"... pero claro me mosquea no poder controlarlo yo desde mi aplicacion...

 

Un Saludo

[monchito_elroro]

Amigo y como así pudiste instalar Lazarus en Fedora , yo una vez lo intente y no pude, el único en el que pude fue en Ubuntu.