affichage de plusieurs textes dans un memo
bonjour,
mon grand problème c'est d'afficher plusieurs textes unicode dans un memo, je suis arrivée à afficher un seul texte unicode dans un memo avec ce code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| void __fastcall TFORM1::Ouvrir1Click(TObject *Sender)
{ if (this->TOpenDialog1->Execute())
{
int nbFichiers = this->TOpenDialog1->Files->Count;
for(int i=0; i<nbFichiers ; i++)
{
AnsiString File = this->TOpenDialog1->Files->operator [](i);
if(FileExists(File))
this->TMemo1->Lines->LoadFromFile(File);
}
}
} |
et je suis arrivée avec le code ci-dessous à afficher plusieurs textes mais en caractères bizarres (c'est à dire il n'a pas connu les caractères unicodes)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| void __fastcall TMIRACL::Ouvrir1Click(TObject *Sender)
{if (this->TntOpenDialog1->Execute())
{
int nbFichiers = this->TntOpenDialog1->Files->Count;
for(int i=0; i<nbFichiers ; i++)
{
WideString File = this->TntOpenDialog1->Files->operator [](i);
wchar_t ph[800];
FILE *doc ;
doc = _wfopen(File.c_bstr(),L"r");
while(fgetws(ph,800,doc))
this->TntMemo1->Lines->Add(ph);
fclose(doc);
}
}
} |
est ce que quelqu'un peut m'aider svp :cry:
