Discussion :

[blondelle]

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

Code :

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

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 :

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

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

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

Je n'arrive pas a solutionner ce probleme

[pottiez]

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)

[blondelle]

Gros oubli de ma part c'est sur cette ligne

Code :

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

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

[pottiez]

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

[blondelle]

Je viens de trouver c'est vraiment trop bete

Code :

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

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 "

[ero-sennin]

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 :

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

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 :

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

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à

[engrobel]

Code :

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

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);