Discussion :

[sondo]

Bonjour à tous,

Je suis passé il n'y a pas longtemps de Delphi 5 à 7. Mon application marche bien à l'exécution, mais accompagné de nombreux warning que voici.

Etat_encaissement.pas(610): Unsafe typecast of 'TDBGrid' to 'TDrawGrid'
Ligne incriminée 

Code :

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

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

 Menu_Gle.pas(437): Unsafe type 'PChar'

Ligne incriminée

Code :

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

1
2
3
4
5
6
ARect.Left := X; 
 DrawText(ACanvas.Handle,
         PChar(Text),
         -1,
         ARect,
         DT_SINGLELINE or DT_LEFT or DT_VCENTER);

 Menu_Gle.pas(488): Unsafe code 'GetMem'

Ligne incrimée:

Code :

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

GetMem(VerInfo, VerInfoSize);

 Menu_Gle.pas(488): Unsafe type 'VerInfo: Pointer'

Ligne incriminée:

Code :

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

VerInfo: Pointer;

 Menu_Gle.pas(502): Unsafe code 'FreeMem'

Ligne incriminée:

Code :

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

FreeMem(VerInfo, VerInfoSize);

Pouvez-vous m'aider à faire les changements qui s'impose? Merci pour toute aide.

[Paul TOTH]

la première est normale, DBGrid n'est pas un DrawGrid

Code :

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

1
2
3
4
5
6
7
 
type
  TOpenDbGrid = class(TDBGrid)
  end;
 
...  
  ColS := format('%2d',[TOpenDBGrid(DbGrid2).col]);

mais il serait plus judicieux de prendre le nombre de colonne de la datasource

pour les autres ce sont juste des warning liés au Delphi 8.Net qui était à venir, il y a un flag pour les supprimer {$WARNING OFF} ou quelque chose comme ça

[sondo]

Salut,

Elle marchait pourtant bien sous Delphi 5.
En utilisant TOpenDBGrid, voici l'erreur:
[Error] Etat_encaissement.pas(609): Undeclared identifier: 'TOpenDBGrid'

[ShaiLeTroll]

Le code de Paul Toth, c'est juste une précaution lors d'un Hack des propriétés et méthodes protégés dont on obtient l'accès parce que toutes classes déclarées dans une même unité ignore la visibilité des variables

Voir la Comment accéder aux méthodes "Protected" d'une classe ?

En plus, on te l'a déjà expliqué dans ton sujet Unsafe typecast of 'TDBGrid' to 'TDrawGrid' aussi bien pour le Hack que pour les Warnings !
Mais je pense qu'à l'époque tu n'avais tout simplement même pas vu et encore moins lu ma réponse qui t'indiquait de retirer les warnings dans les options de projet

En Delphi, va dans le menu Projet - Options - Message du Compilateur, tu vas tout en bas, et tu décoche les trois rubrique "... non protégé"

Toutes utilisations des pointeurs (@, CopyMemory, PChar, ...) ou références objets castés sauvagement sont accompagnées d'un Warning du genre

C'est à cause de la logique .NET qui émergeait à l'époque de D7 et qui règne aujourd'hui chez Microsoft, heureusement Embarcadero a fait le bon choix, en s'ouvrant aux OS avec un grand avenir comme MacOS, iOS et Android

En .NET, il y a un framework portable sur différentes plate-formewindows ... donc mieux vaut ne pas trop toucher directement à la mémoire et les trucs trop bas niveaux

Donc en Delphi, trois nouveaux warnings ont été ajouté pour prévenir que ce qu'il écrit est "mal" selon Microsoft, et heureusement, on peut retirer ces warnings, qui à savoir en .NET deviennent des Erreurs de compilation (il faut ajouter des trucs pour le Garbage Collector, unsafe, fixed, ...)

Sous MacOs, FMX utilise des compteurs de références à la place d'un Garbage Collector mais tu n'as que 11 versions de retard pour en profiter !

Car aujourd'hui, on parle plutôt de Delphi 18 plus connu sous le nom Delphi XE4

[sondo]

Salut,

Merci ShaiLeTroll de m'avoir rafraîchi la mémoire par ce poste de 2012.
Je serai plus attentionné la prochaine fois.
A bientôt.