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 ;)
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;
Bonjour,
RépondreSupprimer8 ans après le partage du bout de code, celui-ci m'a dépanné.
MERCI