Discussion :

[martinus45]

Bonjour,

J'avais sous Delphi le code suivant qui compilait bien :

Code :

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

1
2
3
4
5
6
7
8
var
  Taille : TSize; 
  Fond : TBitMap ;
  UnTexte : string ;
 
begin
   UnTexte := 'aaaaaaaa';
   Taille := Fond.Canvas.TextExtent(UnTexte);

Avec Lazarus 0.9.28, j'ai une erreur de compilation sur la dernière ligne :

Error: Incompatible types: got "TSize" expected "LongWord"


Je ne comprends pas pourquoi, puisque que la fonction TextExtent du Canvas semble toujours retourner un TSize, et pas un LongWord.

Vous pourriez m'aider ?

[M.Dlb]

As-tu essayer un transtypage de la valeur retournée par TextExtent en LongWord ?

[martinus45]

Si je fais :

Code :

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

Taille := TSize( Fond.Canvas.TextExtent(UnTexte))

j'ai une erreur de compilation :

Error: Illegal type conversion: "<record type>" to "DWord"


Le seul contournement que j'ai trouvé est de déclarer H et L comme Integer et de faire :

Code :

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

1
2
  L := Fond.Canvas.TextExtent(UnTexte).Cx;
  H := Fond.Canvas.TextExtent(UnTexte).Cy;

C'est moins élégant... et non compatible avec Delphi.

[chris37]

Ca marche pas ca ?

Code :

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

1
2
Canvas.TextWidth('MON TEXTE');
Canvas.TextHeight('MON TEXTE');

J'ai fais ce test rapidos

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
  Taille : TSize; //Mettre Types dans le uses
begin
 Taille:=Canvas.TextExtent('TOTO');
 ShowMessage(inttostr(taille.cx)+#13#10+inttostr(Canvas.TextWidth('TOTO')));
end;

Ça roule, j'obtiens la même valeur...

[martinus45]

Oui, si ça marche aussi bien sûr, mais ça fait un peu plus de modifications au code.

J'aurais quand même bien aimé comprendre pourquoi le code initial ne se compile pas.

Est-ce que les fonctions ne peuvent pas renvoyer un type structuré en FPC ? (Si oui, l'erreur de compilation devrait être au niveau de la fonction).

A+

Martinus

[chris37]

Salut Martin,

Ton code initial fonctionne bien chez moi

Si bien sur, une fonction peut renvoyer ce que tu veux !

Passe moi ton code si c'est possible, on va regarder ca

@+

[martinus45]

Bon, quand je serai de retour chez-moi, je vais essayer de reproduire l'erreur de compilation sur un exemple plus petit, et te l'envoyer.

Mais tu as fait l'essai sur quelle version(s) exactement ? Moi c'est sur linux 0.9.28.2 et, pour l'instant, je n'ai pas envie d'utiliser SVN.

A+

Martinus

[chris37]

Je n'ai pas de version svn à la maison sur linux, uniquement sur wdows donc je referais le test avec ton code sur mon petit nunux en 0.9.28

@+

[martinus45]

Bon, en faisant un test plus petit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
uses Types ;
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
  Taille : TSize ;
 
begin
  Taille := Form1.Canvas.TextExtent('AAA');
  showmessage ( IntToStr(Taille.Cx) );
end;

Il n'y a pas d'erreur, tout marche bien...

J'en conclus qu'il doit y avoir un conflit sur le type TSize, qui doit être présent dans plusieurs unités.

Il est effectivement présent dans l'unité Types, où selon les directives de compilation il est défini différemment, notamment à partir de Windows.TSize quand on est sous Windows (où je ne suis pas).

L'erreur survient quand on met Unix (sous Linux), et pas Types dans les uses. Avec les 2, dont Types en implementation (pas en interface), il n'y a pas d'erreur. De même si on ne met que Types, quand on peut se passer de Unix.

Toutefois, je n'arrive pas à trouver sur toute ma machine les sources de Unix ou Windows (.pas ou .pp) pour essayer de comprendre, où sont-elles donc ? Si vous le savez, je serais intéressé !

[SergioMaster]

Recherche aussi dans les .inc

[martinus45]

Ouais, j'ai trouvé mais ça a l'air un peu compliqué...

On va dire que c'est résolu, mais je crois que ce n'est pas tout à fait normal qu'on ait des erreurs de compilation selon l'ordre des Uses, du moins pour un type aussi basique.

Merci à ceux qui m'ont aidé !