Problème avec l'initialisation de mes variables
Bonjour à tous,
Voici en quelques lignes mon code (un peu simplifié) !!!
Code:
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 {:oops:} : 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.
