Discussion :

[Neuromancien2]

Bonjour,

Je développe un jeu de stratégie et de gestion sous Lazarus. Dans une unité Map, j'ai défini les classes TProvince (province) et TSquare (case). Dans une unité Economy, j'ai défini les classes qui représentent l'économie d'une province ou d'une case : TProvinceEconomy, TSquareEconomy, TActivitySector (un secteur d'actvité), Tware (une marchandise).

Pour définir les secteurs d'activités (ex. Agriculture), je dérive TActivitySector . Un secteur est rattaché à l'économie d'une case. Une marchandise est rattachée à l'économie d'une province.

L'appel de TSquareEconomy.AddSector() provoque une erreur "Access violation".

Code complet :
Unit Map
Unit Economy

[Alcatîz]

Bonjour !

Dans la méthode TSquareEconomy.AddSector, avant d'exécuter pour la première fois FActivitySectors.Add, il me semble qu'il faut avoir initialisé la liste avec FActivitySectors.Create.

Sinon, je ne vois pas... As-tu essayé avec un debugger ?

[Neuromancien2]

Bonjour !

Dans la méthode TSquareEconomy.AddSector, avant d'exécuter pour la première fois FActivitySectors.Add, il me semble qu'il faut avoir initialisé la liste avec FActivitySectors.Create.

La liste FActivitySectors était bien initialisée. En revanche FSuppliers et FCustomers ne l'étaient pas ! Je m'en veux d'avoir perdu autant de temps sur un problème stupide...