Bonjour à tous,

Voici en quelques lignes mon code (un peu simplifié) !!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Unit1;
type 
  MonEnreg = Enreg
     int1 : integer;
     st1 : string;
     list_str1 : tstringlist;
  end;
 
var 
  var_MonEnreg : Mon Enreg;
  F : File of Enreg;
  str_destination : string;
 
procedure test;
  begin
    read(F,var_MonEnreg);
    if var_MonEnreg.list_str1[0] = '0' then  : str_destination:=var_MonEnreg.list_str1[0]; {:oops:} 
  end;

Voila, Lorsque je test pas à pas mon programme j'ai un problème au niveau du {} : Dans la fenètre de débogage "points de suivi", face au point de suivi " var_MonEnreg.list_str1[0] j'ai le message "expression illégale ......"
pourtant les autres variables de la variable var_MonEnreg sont correctement initialisées et le fichier "F" est correctement renseigné, normalement var_MonEnreg.list_str1[0] devrait recevoir la variable chaine '0'.

Peut être s'agit il d'un problème de création de "var_MonEnreg.list_str1" avec TStringlist.create? mais ou dois je le positionner. Sinon je ne vois pas ce qui se passe !!!!

Merci par avance pour votre aide.