Probleme de passage de parametres a une procedure

Bonsoir
Je cherche a traduire un code Delphi sans succes
le code Delphi

Code:

---

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

// appel de la fonction DefFonte(C.Font, 'Times New Roman', 24, []);   // la fonction a executer procedure DefFonte(F: TFont; Nom: string; Taille: integer; Styl: TFontStyles); begin with F do begin Name := Nom; Size := Taille; Style := Styl; end; end;

---

Voici ce que j'ai ecrit

Code:

---

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

// appel de la fonction DefFonte(Printer()->Canvas->Font, "Times New Roman", 24, []);   // la fonction a executer void __fastcall TForm1::DefFonte(TFont F, String Nom, int Taille, TFontStyles Styl) { Font->Name = Nom; Font->Size = Taille; Font->Style = Styl; }   // declaration dans le .h void __fastcall TForm1::DefFonte(TFont F, String Nom, int Taille, TFontStyles Styl);

---

Le message d'erreur recu a la compilation

Citation:

---

[C++ Error] Unit1.cpp(78): E2188 Expression syntax

---

Je n'arrive pas a solutionner ce probleme :?

Salut,
peut tu nous précisez quel est la ligne 78 de ton code (ou en gros sur quel ligne le compilateur te sort cette erreur)

:merci:

Gros oubli de ma part c'est sur cette ligne :oops:

Code:

---

1 2	DefFonte(Printer()->Canvas->Font, "Times New Roman", 24, []);

---

As mon avis il faudrait que tu remplace le [] par TFontStyle(), en tout cas le [] est bien invalide en c++ nom de variable devant

Code:

---

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

// appel de la fonction DefFonte(Printer()->Canvas->Font, "Times New Roman", 24, TFontStyles());   // la fonction a executer void __fastcall TForm1::DefFonte(TFont *F, String Nom, int Taille, TFontStyles Styl) { F->Name = Nom; F->Size = Taille; F->Style = Styl; }   // declaration dans le .h void __fastcall TForm1::DefFonte(TFont *F, String Nom, int Taille, TFontStyles Styl);

---

Je viens de trouver c'est vraiment trop bete

Code:

---

1 2 3 4 5 6 7 8 9 10 11

// appel de la fonction DefFonte(Printer()->Canvas->Font, "Arial", 11, TFontStyles()); // la fonction a executer void __fastcall TForm1::DefFonte(TFont *F, String Nom, int Taille, TFontStyles Styl) { F->Name = Nom; F->Size = Taille; F->Style = Styl; }

---

en fait effectivement il y avait " TFontStyles() " mais aussi " TFont *F " et " F->Name "

Salut,

Bon, j'ai vu que vous avez trouvé la première erreur (le passage de paramètre F ...)

Je vous propose ceci pour ma part :

Code:

---

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

void __fastcall TForm1::DefFonte(TFont *F, String Nom, int Taille, TFontStyle Styl) { F->Name = Nom; F->Size = Taille; if (Styl != NULL) { F->Style = TFontStyles() << Styl; } else { F->Style = TFontStyles(); } }

---

Utilisation :

Code:

---

1 2 3 4

void __fastcall TForm1::Button1Click(TObject *Sender) { DefFonte(Form1->Canvas->Font, "Times New Roman", 12, fsUnderline ); }

---

Bon, c'est pas très beau le coup du NULL ... Ca serait pas mal de faire en sorte qui si on ne saisit rien, alors pas de formatage de la Font ...

Voilà :)

Merci ero-sennin
Mon probleme est completement resolu, pour la beaute du code il est peut etre possible de remplacer " NULL " par " \0 " c'est la valeur que l'on recupere en pointant sur " *F " en mode Debug, je n'ai pas teste, et je t'en prie tu peut me tutoyer :P

Citation:

---

Envoyé par blondelle

Merci ero-sennin

---

Il n'y a pas de quoi ;)

Citation:

---

Envoyé par blondelle

Mon probleme est completement resolu, pour la beaute du code il est peut etre possible de remplacer " NULL " par " \0 " c'est la valeur que l'on recupere en pointant sur " *F " en mode Debug, je n'ai pas teste,

---

Disons que je visais à faire simple pour l'utilisateur ... Je n'ai pas testé le "\0" ... Mais si c'est totalement résolu, alors c'est parfait :king:

Citation:

---

Envoyé par blondelle

et je t'en prie tu peut me tutoyer :P

---

C'est noté ;)