Discussion :

[stgarp]

Bonjour,

je cherche à écrire de l'UNICODE dans un fichier texte.

Le programme est très simple :

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
procedure TForm1.Button2Click(Sender: TObject);
const
	kFilename	= 'D:\test.txt';
var
	Outfile	: system.text;
begin
	AssignFile(OutFile, kFilename);
	Rewrite(OutFile);
	try
		WriteLN(Outfile, 'Кгыыу');
		WriteLN(Outfile, 'َقضلاث');
	finally
		CloseFile(OutFile);
	end;
end;

(Sauf que la première chaîne s'écrit "Кгыыу" et la seconde "َقضلاث", c'est la balise "code" du site qui fait la transformation).


Quand je regarde dans mon fichier, j'ai bien deux lignes :

Code :

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

1
2
?????
??????

Bon, je cherche dans l'unité system.pas, et je trouve :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
TFileRec = packed record (* must match the size the compiler generates: 592 bytes *)
[...]
    case Byte of
      0: (RecSize: Cardinal);   //  files of record
      1: (BufSize: Cardinal;    //  text files
[...]
          BufPtr: PAnsiChar;
[...]
 
{ Text file record structure used for Text files }
  PTextBuf = ^TTextBuf;
  TTextBuf = array[0..127] of AnsiChar; // TODO: change to WideChar
  TTextRec = packed record (* must match the size the compiler generates: 720 bytes *)

C'est moi ou le mec de CodeGear a oublié de vider sa ToDo List avant de livrer la release ?

On ne peut plus utiliser system.text si on veut écrire de l'UNICODE ?

Merci de votre réponse

(J'ai peur...)

[ShaiLeTroll]

Il semble que c'est pas fini !
Ce qui est étrange, tu ouvre ton fichier avec quoi ?
il doit convertir la chaine Unicode en Ansi (il y a le CharSet dans la AnsiString en 2009, c'est mis avant le compteur de référence)
Vu qu'un fichier Texte est encodé avec le CharSet de window (le 1252 pour la France par exemple), un fichier Texte sur un OS configuré pour l'Arabe doit théoriquement utilisé un autre CharSet ... la dessus, je n'ai jamais eu l'occasion de le vérifier ...

utilise une TStringList avec un SaveToFile, tu peux choisir l'encodage
Sinon, passe par un TFileStream, où tu écrits tes UnicodeString via le code suivant

Stream.Write(S, Length(S) * SizeOf(Char));
Stream.Write(sLineBreak, Length(sLineBreak) * SizeOf(Char));

[stgarp]

Il semble que c'est pas fini !
Ce qui est étrange, tu ouvre ton fichier avec quoi ?

Avec Notepad++, ou Bloc Note, ou Delphi...

il doit convertir la chaine Unicode en Ansi (il y a le CharSet dans la AnsiString en 2009, c'est mis avant le compteur de référence)
Vu qu'un fichier Texte est encodé avec le CharSet de window (le 1252 pour la France par exemple), un fichier Texte sur un OS configuré pour l'Arabe doit théoriquement utilisé un autre CharSet ... la dessus, je n'ai jamais eu l'occasion de le vérifier ...

C'est bien ce que je comprend de la définition du TTextBuf : si ma string est interprétée en AnsiString, je comprend que mes caractères disparaissent...

utilise une TStringList avec un SaveToFile, tu peux choisir l'encodage
Sinon, passe par un TFileStream, où tu écrits tes UnicodeString via le code suivant

Oui, j'y avais pensé. C'est juste que j'ai quelque milliers de

Code :

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

WriteLN(Fileout, ...

qui traînent, et que je n'avais pas compté que Delphi UNICODE m'empêcherait de les conserver...

En fait, j'avais envoyé mon message précédent dans le secret espoir d'une réponse du type "ben non, t'es con, fais comme ça et ça marche..."