Discussion :

[escargot72]

Bonsoir
Je n'arrive pas à afficher nos voyelles accentuées.
Le é nécessite une sorte de virgule, le è un s de type hongrois. Le à s'affiche avec un o accent aigu.
Comment faire ?

Merci de vos conseils.
Bernard

[Alcatîz]

Bonjour,

Une solution de contournement : http://alcatiz.developpez.com/tutori...=pg_intro#LI-E

[escargot72]

Bonjour,

Une solution de contournement : http://alcatiz.developpez.com/tutori...=pg_intro#LI-E

Bonjour
J'ai intégré la ligne dans mon programme, mais si je définis chaine comme PWideChar, FP n'accepte pas. Et si je définis comme Pchar, la version compilée ne transforme pas les codes.
Quel doit-être l'environnement ?

[Roland Chastain]

Bonjour ! J'avoue que j'ai un peu de mal à voir de quoi il s'agit exactement. Pourrait-on avoir le morceau de code qui pose problème ?

[escargot72]

Bonjour ! J'avoue que j'ai un peu de mal à voir de quoi il s'agit exactement. Pourrait-on avoir le morceau de code qui pose problème ?

Bonjour
J'ai repris le programme "Oudin.pas" en l'allégeant.
Je suis sous Dev-Pascal avec FP 2.6.4.
Je ne sais utiliser UTF8ToSys.

Joyeux Noël

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
(* Delphi 6, FreePascal 2.6.2, Virtual Pascal 2.1 *)
{ à partir de oudin.pas }
program Oudini;
{$MODE DELPHI}
uses
  crt,SysUtils, Windows{,UTF8ToSys};
 
var s, accent : string;
 
begin
  accent:=  '..... â, à, é, ù, è, ê, ï, ô, û, ñ';
  MessageBox(0, pChar(accent), pChar('Accent'), MB_OK);
 
  s:= ' 20 avril ';
  s:= ' En 2014, le dimanche de Pâques est le ' + s + accent ;
 
  MessageBox(0, pChar(s), pChar('Date de Pâques'), MB_OK);
 
  writeln(s);
  readkey;
end.

[Roland Chastain]

Pour afficher des accents dans une fenêtre de type MessageBox(), on peut faire comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program TestMessageBox;
{$MODE DELPHI}
 
uses
  Windows;
 
var
  s: string;
 
begin
  //s := 'Joyeux Noël !';
  s := 'Joyeux No'#235'l !';
  MessageBox(0, PChar(s), '', 0);
end.

Pour trouver le numéro du caractère, j'ai suivi le lien donné plus haut par Alcatîz. Est-ce que cela répond à votre question ?

Joyeux Noël à tous les utilisateurs du forum !