[Delphi XE] Afficher des caractères accentués dans une application console

Bonjour,
Voici un petit bout de code pour afficher des caractères accentués dans une fenêtre de console sous Delphi XE.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
// Permet d'afficher des caractères accentués dans une fenêtre de console
procedure Afficher(AMessage: String);
 
  function AnsiToDos(S: AnsiString): AnsiString;
  begin
    SetLength(Result, Length(S));
    AnsiToOemBuff(PAnsiChar(S), PAnsiChar(Result), Length(S));
  end;
 
begin
  Writeln(AnsiToDos(AMessage));
end;

Bonne journée ;)