Discussion :

[francois.delpierre]

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.

[the watcher]

J'essaie de comprendre votre code, je ne sais pas si je me trompe mais je sens quelque chose qui n'as pas sa place

Code :

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

1
2
3
4
5
6
procedure test; 
  begin 
    read(F,var_MonEnreg); 
    if var_MonEnreg.list_str1[0] = '0' then  :
 str_destination:=var_MonEnreg.list_str1[0]; {:oops:} 
  end;

les : après le then
essayez de les retirer pour voir ce que cela donne.

Si c'est du pascal, je conseille d'aller sur le forum approprié.

[qi130]

Peut être s'agit il d'un problème de création de "var_MonEnreg.list_str1" avec TStringlist.create?

Il doit être créé avant de s'en servir et supprimer dès qu'on n'en a plus besoin.

Maintenant, comme ton code est "parcellaire", libre à toi de positionner ce Create où bon te semble

[sjrd]

Le problème est que tu ne peux pas enregistrer comme cela ton TStringList dans un file of record... Tu dois tout enregistrer à l'aide de flux (TStream).

devrait t'en dire un peu plus

[edam]

voir Tstringlist.loadfromfile et TStringlist.savetofile