Salut tout le monde
J'ai un petit programme (Delphi 7) qui traduit un chiffre en lettres arabes avec un bouton qui copie le résultat dans le presse papiers , mais, le problèmes c'est quand je colle ce résultat dans un autre programme (NotePad, WordPad ou Microsoft Word), j'obtiens des caractères bizarres
ex. je saisi 432, le résultat est: أربعمائة وثلاثة وعشرون en suite je copie ce résultat dans le presse papier puis je le colle dans WordPad et le résultat deviens
ÎãÓÉ ÂáÇÝ æ ËáÇËÜãÇÆÉ æ ÓÊÉ æÚÔÑæä ÏíäÇÑ æ0 ÓäÊíã
Pouvez-vous m'aider ?
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 procedure TForm1.cxButton1Click(Sender: TObject); var wideChars : array[0..10000] of WideChar; myString : String; begin Edit1.SelectAll; // Set up our string myString := Edit1.Text; // Copy to a WideChar format in our array StringToWideChar(myString, wideChars, 10000); // Show what the copy gave Edit1.Text:=WideCharToString(wideChars); Edit1.Refresh; Clipboard.Clear; Edit1.CopyToClipboard; end;
Partager