Discussion :

[DURVILLE]

Je suis surpris par le comportement du traitement du premier caractère d'une chaine. (Je travaille sur un prog. qui traite une grande liste de mots : 430 000)

sans changer quoi que ce soit d'autre que la ligne incriminée :
ce programme fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var
..
L3 : array[1..100] of String[13];
 
F : TextFile;
Lignelue :String[13];
 
...
// ce code fonctionne
Begin
Readln (F, Lignelue);
  L3[j]:= Lignelue;
 
  While ((Copy(Lignelue,1,1)='+') OR (Copy(Lignelue,1,1)=' '))do

et celui-ci m'envoie un "violation access"... (peut-être après avoir affiché environ 32000 lignes - je ne peux vérifier)
// ce code me renvoie une erreur
// échec du projet F:\Delphi.... Pr1.exe avec le message : 'access violation ...'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Var
..
L3 : array[1..100] of String[13];
L4 : String[13];
F : TextFile;
Lignelue :String[13];
 
 
Begin
 
Readln (F, Lignelue);
 L3[j]:= Lignelue;L4:=Lignelue;
 While((L4[1]='+') OR (L4[1]=' ')) do

Si quelqu'un peut m'éclairer, merci ...

[ShaiLeTroll]

rassure moi j ne monte pas à 32000 ?

[DURVILLE]

Non, non, bien sûr !
J compte de petites variations.

D'ailleurs ça n'intervient pas dans l'écriture de la ligne qui cherche l'initiale de la chaîne.

[SergioMaster]

bonjour,
et le cas ou la chaine est nulle ? il est traité ?

[ShaiLeTroll]

Avec des String[13] cela ne devrait pas poser problème
Tu ne dépasse jamais d'index dans L4 ?

Comme ça se passe si ReadLn veut lire plus que 13 caractères et qu'on lui passe une ShortString de 13 caractères ?

En partant de la remarque de SergioMaster :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var
..
L3 : array[1..100] of String[13];
 
F : TextFile;
Lignelue :String; // Non limité !
 
...
// ce code fonctionne
Begin
Readln (F, Lignelue);
  L3[j]:= Lignelue; // Troncature 
 
While (Length(Lignelue) >= 1 ) and ((Lignelue[1]='+') OR (Lignelue[1]=' ')) do

[peter27x]

tu devrais mettre un point d'arrêt sur la ligne "Readln (F, Lignelue);", puis faire du pas à pas pour savoir où ça plante exactement, et au passage mettre "L3[j]:= Lignelue;L4:=Lignelue;" sur deux lignes séparées, si jamais l'erreur vient d'une de ces deux affectations...
Ensuite on pourra te donner nos avis "plus avisés".