Discussion :

[sondo]

Bonjour,

Je rencontre des problème après le passage de Delphi5 je suis passé à Delphi7.
Quand je compile mon programme écrit en Delphi5 dans l'EDI de Delphi7 j'ai cet erreur : Unsafe typecast of 'TDBGrid' to 'TDrawGrid', alors que mon programme s'exécutait bien dand Delphi5.
Voici le code incriminé :

Code :

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

ColS := format('%2d',[TdrawGrid(DbGrid1).col]);

Pouvez-vous m'aider à comprendre?

Merci d'avance.

[Paul TOTH]

ben c'est normal, TDBGrid n'est pas une TDrawGrid

[ShaiLeTroll]

Tu as 3 warnings du .NET a retiré en D7 Win32, normalement, cela ne devrait pas être une erreur

utilise plutôt un TDBGridHack pour l'astuce du hack de propriété

Code :

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

1
2
3
4
5
6
 
type
  TDBGridHack = class(TDBGrid)
  public
    property Col;
  end;

C'est vrai que TdrawGrid augmente la visibilité de Col, c'est une astuce souvent utilisée mais périlleuse

Tu passe de Delphi 5 à 7, pense que le 17 (XE3) est sorti !

[sondo]

Salut Paul TOTH,

Merci pour ton aide. Mais je ne comprend pas du tout! En Delphi5 cela marchait très bien. Pourquoi en Delphi7 cela pose problème?
Du coup mon application ne fonctionne plus. En plus je ne sais pas qu'est-ce qu'il faut mettre à la place pour satisfaire Delphi7. Voici tous les codes qui posent problème :

Code :

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

Dm_num := DbGrid1.Columns.Grid.Fields[TdrawGrid(DbGrid1).Col-1].AsString;

Erreur : Unsafe typecast of 'TDBGrid' to 'TDrawGrid'

Code :

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

ShellExecute(Handle,'open',PChar('c:\Frais_medicaux_agent.htm'),nil,nil,SW_SHOW);

Erreur : [Warning] Menu_Gle.pas(434): Unsafe type 'PChar'

Code :

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

VerInfo: Pointer;

Erreur : [Warning] Menu_Gle.pas(476): Unsafe type 'Pointer'

Code :

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

GetMem(VerInfo, VerInfoSize);

Erreur : [Warning] Menu_Gle.pas(485): Unsafe code 'GetMem'
[Warning] Menu_Gle.pas(485): Unsafe type 'VerInfo: Pointer'
[code]GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);/CODE]
Erreur : [Warning] Menu_Gle.pas(487): Unsafe type 'PChar'

Code :

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

1
2
3
if GetTimeZoneInformation(TimeZoneInfo) <> $FFFFFFFF then 
        Bias := TimeZoneInfo.Bias / 1440; // 60x24 
      GetFileTime(h, @Info1, @Info2, @Info3);

Erreur : [Warning] Mise_jour.pas(44): Unsafe code '@ operator'

Voici un récapitulatif des erreurs :

Build
[Warning] Liste_dm_four.pas(58): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_dm_four.pas(66): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_dm_four.pas(67): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_dm_four.pas(130): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_dm_four.pas(131): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_dm_four.pas(214): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_dm_four.pas(215): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_frs_piece_en_cours.pas(46): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_frs_piece_en_cours.pas(54): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_frs_piece_en_cours.pas(55): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_frs_piece_en_cours.pas(68): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_frs_piece_en_cours.pas(69): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_fournisseurs.pas(56): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_fournisseurs.pas(64): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_fournisseurs.pas(65): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_fournisseurs.pas(79): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_fournisseurs.pas(80): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_fournisseurs.pas(92): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_fournisseurs.pas(93): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_fournisseurs.pas(104): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Liste_fournisseurs.pas(105): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
[Warning] Situation_frais_agent.pas(137): Unsafe type 'PChar'
[Warning] Situation_frais_agent.pas(173): Unsafe type 'PChar'
[Warning] Situation_frais_agent.pas(209): Unsafe type 'PChar'
[Warning] Situation_frais_agent.pas(244): Unsafe type 'PChar'
[Warning] Boite_A_Propos.pas(32): Unsafe type 'Pointer'
[Warning] Boite_A_Propos.pas(35): Unsafe type 'PChar'
[Warning] Boite_A_Propos.pas(41): Unsafe code 'GetMem'
[Warning] Boite_A_Propos.pas(41): Unsafe type 'VerInfo: Pointer'
[Warning] Boite_A_Propos.pas(43): Unsafe type 'PChar'
[Warning] Boite_A_Propos.pas(43): Unsafe type 'VerInfo: Pointer'
[Warning] Boite_A_Propos.pas(44): Unsafe type 'VerInfo: Pointer'
[Warning] Boite_A_Propos.pas(44): Unsafe type 'Pointer'
[Warning] Boite_A_Propos.pas(55): Unsafe code 'FreeMem'
[Warning] Boite_A_Propos.pas(55): Unsafe type 'VerInfo: Pointer'
[Warning] Menu_Gle.pas(434): Unsafe type 'PChar'
[Warning] Menu_Gle.pas(476): Unsafe type 'Pointer'
[Warning] Menu_Gle.pas(479): Unsafe type 'PChar'
[Warning] Menu_Gle.pas(485): Unsafe code 'GetMem'
[Warning] Menu_Gle.pas(485): Unsafe type 'VerInfo: Pointer'
[Warning] Menu_Gle.pas(487): Unsafe type 'PChar'
[Warning] Menu_Gle.pas(487): Unsafe type 'VerInfo: Pointer'
[Warning] Menu_Gle.pas(488): Unsafe type 'VerInfo: Pointer'
[Warning] Menu_Gle.pas(488): Unsafe type 'Pointer'
[Warning] Menu_Gle.pas(499): Unsafe code 'FreeMem'
[Warning] Menu_Gle.pas(499): Unsafe type 'VerInfo: Pointer'
[Warning] SplashScreen.pas(32): Unsafe type 'Pointer'
[Warning] SplashScreen.pas(35): Unsafe type 'PChar'
[Warning] SplashScreen.pas(41): Unsafe code 'GetMem'
[Warning] SplashScreen.pas(41): Unsafe type 'VerInfo: Pointer'
[Warning] SplashScreen.pas(43): Unsafe type 'PChar'
[Warning] SplashScreen.pas(43): Unsafe type 'VerInfo: Pointer'
[Warning] SplashScreen.pas(44): Unsafe type 'VerInfo: Pointer'
[Warning] SplashScreen.pas(44): Unsafe type 'Pointer'
[Warning] SplashScreen.pas(55): Unsafe code 'FreeMem'
[Warning] SplashScreen.pas(55): Unsafe type 'VerInfo: Pointer'
[Warning] Mise_jour.pas(44): Unsafe code '@ operator'
[Warning] Mise_jour.pas(44): Unsafe code '@ operator'
[Warning] Mise_jour.pas(44): Unsafe code '@ operator'

[Paul TOTH]

alors ce ne sont pas des erreurs mais des warning, D7 en a introduit un paquet en prévision du passage à .Net, il alerte dès qu'un usage de pointeur est fait.

si tu penses que ton code ne justifie ce warning tu peux les désactiver (F1 sur le message)

[Rayek]

Code :

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

Dm_num := DbGrid1.Columns.Grid.Fields[TdrawGrid(DbGrid1).Col-1].AsString;

Voici un récapitulatif des erreurs :

Ca tu pourrais le transformer en utilisant le dataset ...

Genre

Code :

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

1
2
 
DM_NUM := LeComposantBaseDeDonnee.FieldByName('LE Nom Du champ').AsString;