Código Delphi [-] program Project1; {$APPTYPE CONSOLE} uses Windows, SysUtils; var S: String; begin S := 'Hola Román'; CharToOemBuff(PChar(S), PChar(S), Length(S)); WriteLn(S); ReadLn; end.
program Project1; {$APPTYPE CONSOLE} uses Windows, SysUtils; var S: String; begin S := 'Hola Román'; CharToOemBuff(PChar(S), PChar(S), Length(S)); WriteLn(S); ReadLn; end.