Bonjour,
Voici un petit bout de code pour afficher des caractères accentués dans une fenêtre de console sous Delphi XE.
Bonne journée
Code Pascal : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Partager