Tableau de string et données enregistrées

Version imprimable

Bonsoir a tous,

Bon voila, je suis un grand debutant sur delphi, juste quelques bases... et donc, je plante a la compilation. Ce morceau de code vaut mieux qu'un long discourt :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TFichePrincipale.sauvagerderlesdonnes1Click(Sender: TObject);
var
  NomFichier : textfile;                  // nom du fichier
  Ligne : string;                         // variable de sauvegarde
  ConfigSpot : array [0..20] of string;   // tableau des données
  CptLigne, CptBoucle : byte    ;         // compteur
begin
  OpenDialog1.Filter := 'Text files (*.txt)|*.TXT';
 
  if opendialog1.execute then
        assignfile(NomFichier,opendialog1.filename);
 
  reset(NomFichier);
 
  while not eof(NomFichier) do begin
        readln(NomFichier,Ligne);
        CptLigne := CptLigne+1 ;
        ConfigSpot[CptLigne] := ligne ;
        memo1.lines.add(ligne);
        end;
  closefile(NomFichier);//cette procédure ferme notre fichier F
end;

Si quelqu'un peu me dire pourquoi ca plante, ca serait vraiment sympa.

bonne soirée a tous, je continue a chercher.

Elecpic

21/05/2009, 14h57
Droïde Système7

Bonjour,

Je te propose de créer un fichier texte comportant seulement ceci :

Citation:

un
deux
trois
quatre
cinq
six
sept
huit
neuf
dix
etc.

Ensuite tu lances ton appli et curieusement, ça ne devrait plus planter.

La puce à l'oreille, non ;)

@+
21/05/2009, 15h03
elecpic

Eureka

Merci pour ta réponse, droide systeme7

Comme je l'avait dit, j'ai continuer a chercher...
En fait, c'etait un probleme d'init du compteur cptLigne. En l'initialisant a 0, ca marche.

Merci encore, et bonne programmation

elecpic
21/05/2009, 16h03
Droïde Système7
Citation:

En fait, c'etait un probleme d'init du compteur cptLigne. En l'initialisant a 0, ca marche.

Tu as de la chance, car même si j'initialise ce byte à zéro ; ça plante comme auparavant :roll:
Code:

1 2 3 4 5 6 ... CptLigne, CptBoucle : byte ; // compteur begin CptLigne := 0; OpenDialog1.Filter := 'Text files (*.txt)|*.TXT'; ...