Recherche:

un pointeur fera l'affaire aussi :D


procedure charger_decharger;
type
TTabTest = array[1..5000] of string;
PTabTest = ^TTabTest;
var
References: PTabTest;
indx: integer;

Bonjour

mets le tout dans une classe et libère cette dernière à la fin


Tmesdonnes = class
CPVILLE: array[0 .. 50000] of string ;
end;