Passage de C++ Builder 6 à RAD Studio 10.4

Bonjour,

Quelqu'un peut il me dire comment écrire en RAD Studio 10.4 ces quelques lignes qui marchaient très bien avec C++ Builder 6

Code:

---

1 2 3 4 5 6 7 8 9 10 11

char chn1[10];   void __fastcall TForm1::Edit1Change(TObject *Sender) { int Size = Edit1->GetTextLen(); Size++; char *Buffer = new char[Size]; Edit1->GetTextBuf(Buffer,Size); strcpy(chn1,Buffer); delete Buffer; }

---

Merci par avance

Eric NOE

Bonjour,

à partir des versions XE, les chaines de caractères des composants sont de type UnicodeString au lieu de AnsiString...

Code:

---

1 2 3 4 5 6

char chn1[10]; void __fastcall TForm1::Edit1Change(TObject *Sender) { strcpy(chn1, AnsiString(Edit1->Text).c_str()); }

---

Cordialement

La réponse de PocoYote est fonctionnel, par contre je me question sur l'utilisation d'un array de char. Pourquoi ne pas utiliser String qui est normalement utilisé sous C++Builder ou std::string qui supporte UTF-8 et qui est standard en C++? Sinon, si ton texte peut contenir des caractères Unicode il te faudrait plutôt un array de wchar_t (wide-character). Aussi au lieu de strcpy utilise plutôt strncpy qui est plus sécuritaire.

Citation:

---

Envoyé par Crayon

La réponse de PocoYote est fonctionnel, par contre je me question sur l'utilisation d'un array de char. Pourquoi ne pas utiliser String qui est normalement utilisé sous C++Builder ou std::string qui supporte UTF-8 et qui standard en C++? Sinon, si ton texte peut contenir des caractères Unicode il te faudrait plutôt un array de wchar_t (wide-character). Aussi au lieu de strcpy utilise plutôt strncpy qui est plus sécuritaire.

---

Parfitement d’accord avec les propos de Crayon,
le code posté initialement est du C et non du C++ pourquoi utiliser de l'allocation statique via un tableau de caractère ou de l'allocation dynanique via new alors que C++ Builder propose des classes AnsiString,ou UnicodeString ou encore mieux l'utilisation de la STD.
la classe AnsiString existait déja avec C++ Builder 1.

ainsi ton code retravaillé

Code:

---

1 2 3 4 5 6 7 8 9

String BuffReseultat     void __fastcall TForm1::Edit1Change(TObject *Sender) { BuffReseultat=Edit1->Text; // C'est tout } // l'èvenenement OnChange est appelé a chaque fois que la propriété texte est changée donc 1 caractère

---

cdlt

Merci pour vos réponses,
mais j'utilise l'événement "OnChange" car dans certains de mes projets j'ai besoin de contrôler chaque caractères saisis.
comment écrire la même fonction en C++ ?
Merci par avance
Eric NOE

salut
je crois qu’il y a une certaine confusion
l'évenenment Onchange c’est du C++ creé a partir de la VCL qui est écrite en Delphi
en utilisant le code que j'ai posté BuffReseultat sera une copie exacte de l'Edit box
ton code de contrôle ou de traitement doit être appelé depuis le gestionnaire d'évenement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

String BuffReseultat     void __fastcall TForm1::Edit1Change(TObject *Sender) { BuffReseultat=Edit1->Text; // C'est tout // ton code de traitement sera placé ici // exemple char* LastChar=BuffReseultat.AnsiLastChar(); // Tu peux tester Maintenenant LastChar et en fonction du résultat désiré agir ex conséquence //     }

---

cdlt

Bonjour,
j'ai essayé

Code:

---

char* LastChar=BuffResultat.AnsiLastChar();

---

Message du compilateur :

Citation:

---

[bcc32c Erreur] Unit1.cpp(41): no member named 'AnsiLastChar' in 'System::UnicodeString'

---

Mille excuses,
voici un petit code qui teste si dernier caractère tapé dans l'editBox est la lettre A alors il la remplace par un X

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

void __fastcall TForm122::Edit1Change(TObject *Sender) { String BuffTmp; BuffTmp = Edit1->Text; if(BuffTmp!="") // teste si la chaîne contient des caractères { if (*BuffTmp.LastChar() == 'A') { //le dernier caractère de la chaine est un A int found = BuffTmp.Pos(*BuffTmp.LastChar());// On trouve sa position BuffTmp[found] = 'X';// remplacement du caratère A par un X Edit1->Text = BuffTmp; // On réecrit la EditBox } }       } // ---------------------------------------------------------------------------

---

cdlt

Merci beaucoup pour ton aide
Eric NOE