Discussion :

[User]

Bonjour à tous !

Quand je compile j'ai mon message d'erreur:
Ligne trop longue (plus de 1023 caractères)

Or le plus bizarre c'est que la ligne en question ne fait qu'a peine 45 caractères !

Comment puis-je me sortir de cette bizarrerie !!!

Merci à vous !

[MelkInarian]

Bonjour à tous !

Quand je compile j'ai mon message d'erreur:
Ligne trop longue (plus de 1023 caractères)

Or le plus bizarre c'est que la ligne en question ne fait qu'a peine 45 caractères !

Comment puis-je me sortir de cette bizarrerie !!!

Merci à vous !

D'abord, je suis débutant, donc je vais certainement dire une bétise.
Ne le prend pas mal!
Delphi permet d'aller à la ligne dans une instruction, Le compilo n'interprèterait il pas ton instruction comme une suite de la ligne précédente manque de ';' ou autre?
J'avais prévenu je débute.

[User]

merci pour ta contribution:

Non il n'y a pas de problème dans le code, donc tous les ; sont présents aux bons endroits...

c'est 1 problème de l'éditeur du code Delphi:

je donne le code:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
case Num_Examen Of
 
1: begin
   Graphique1.Items.Add('Poids');
   Graphique1.Items.Add('Tour de taille');
   Graphique1.Items.Add('I.M.C.');
   end;
 
2: begin
   Graphique1.Items.Add('NFS/Plaquettes');   //<-- Erreur ici
   Graphique1.Items.Add('Glycémie');
   Graphique1.Items.Add('Sodium');
   Graphique1.Items.Add('Potassium');
   Graphique1.Items.Add('Créatinémie');
   Graphique1.Items.Add('Triglycérides');
   Graphique1.Items.Add('Cholestérol HDL');
   Graphique1.Items.Add('Cholestérol LDL');
   Graphique1.Items.Add('Transaminases ASAT');
   Graphique1.Items.Add('Transaminases ALAT');
   end;
 
3: begin
   Graphique1.Items.Add('Pression artérielle couché sys.');
   Graphique1.Items.Add('Pression artérielle couché dias.');
   Graphique1.Items.Add('Pression artérielle debout sys.');
   Graphique1.Items.Add('Pression artérielle debout dias.');
   Graphique1.Items.Add('Fréquence cardiaque');
   Graphique1.Items.Add('ECG : QTC');
   end;
 
end;

et je rappelle le message d'erreur sur la ligne rouge:
Ligne trop longue (plus de 1023 caractères)

@+

[MelkInarian]

Tant qu'on y est, soyons fous!
N'y a t'il pas un nombre de lignes maximum dans un prog?
J'ai bien en compte le message d'erreur sur la ligne rouge:
Ligne trop longue (plus de 1023 caractères)
Mais il arrive souvent qu'un message d'erreur ne corresponde pas à 100%.

[Pedro]

Tant qu'on y est, soyons fous!

N'y a t'il pas un nombre de lignes maximum dans un prog?

Normalement non

J'ai bien en compte le message d'erreur sur la ligne rouge:
Ligne trop longue (plus de 1023 caractères)

Je pencherais plutot pour des espaces à la fin de la ligne... Ou autre...
@User : As-tu essayé de débugger et de tester ce qui arrive dans la méthode Add?

Mais il arrive souvent qu'un message d'erreur ne corresponde pas à 100%.

Si il faut juste savoir interprêter

[User]

en effet le compilateur n'est pas toujours 100% clair..

Tout ce que je peux te dire c'est que ca se produit quand je rajoute des lignes entre 1 begin et 1 end, par exemple:

Code :

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

1
2
3
4
5
6
7
case Num Of 
 1: begin
     Graph2.Title.Text.Add('Poids / Mois');
     Graph2.LeftAxis.Title.Caption :='Poids (en kg)';
     Graph2.LeftAxis.AutomaticMaximum:=False;
     Graph2.LeftAxis.Maximum:=150;      
     end;

j'ai ajouté les 2 lignes en vert et après cet ajout j'ai le message d'erreur sur la ligne rouge comme je l'ai indiqué precedemment...

@+

[Pedro]

Est-ce que ce ne serait pas plutot dans le .dfm que la ligne est trop longue

[Fabrice ROUXEL 1]

L'erreur est peut être liée à la propriété Text de TStrings. (dépassement de limites)

Essayes de faire:

Code :

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

1
2
3
4
 
{$H+}
ShowMessage(Graphique1.Items.Text);
ShowMessage(Graphique1.Items.commatext);

[User]

Salut Pedro,

et merci pour ton aide,

j'ai édité le .dfm et compilé et il me pointe toujour ma ligne sur le .pas

je te donne la totalité du message d'erreur:
[Erreur fatale] Graphique.pas(314): Ligne trop longue (plus de 1023 caractères)

@+

[Fabrice ROUXEL 1]

Si tu utilises des shortStrings tu es limité à 255 caractères.

[User]

Salut Fabrice,

dépassement de limites sur TString ?
je ne crois pas..
Dans ce cas je pourrais passer la compilation
et l'erreur se produirais a l'exécution:

(en plus je fais 1 Graphique.Items.Clear avant)

mais l'erreur a lieu quand je compile c'est donc 1 problème de syntaxe ou autre...

@+

[User]

Ca ne change rien si j'enlève le /, toujours le même message d'erreur:

Ce qui me tracasse dans ce truc c'est que mon code est bon, mes lignes font largement mois de 1024 caractères..

a mon avis ca vient du bloc:

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
19
20
21
22
23
24
25
26
27
case Num_Exam Of
 
1: begin
 
    case Num Of
 
    1: begin
 
        end;
 
    2: begin
 
        end;
 
    end;
 
    end;
 
2: begin
 
    end;
 
3: begin
 
    end;
 
end;

peut-être qu'il gère mal cette structure

mais encore une fois mon code est bon...

a mon avis c'est 1 problème propre à Delphi...

En fait je cherche 1 parade pour contourner le problème..

@+

[e-ric]

merci pour ta contribution:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
case Num_Examen Of
 
1: begin
   Graphique1.Items.Add('Poids');
   Graphique1.Items.Add('Tour de taille');
   Graphique1.Items.Add('I.M.C.');
   end;
 
2: begin
   Graphique1.Items.Add('NFS/Plaquettes');   //<-- Erreur ici
   Graphique1.Items.Add('Glycémie');
   Graphique1.Items.Add('Sodium');
   Graphique1.Items.Add('Potassium');
   Graphique1.Items.Add('Créatinémie');
   Graphique1.Items.Add('Triglycérides');
   Graphique1.Items.Add('Cholestérol HDL');
   Graphique1.Items.Add('Cholestérol LDL');
   Graphique1.Items.Add('Transaminases ASAT');
   Graphique1.Items.Add('Transaminases ALAT');
   end;
 
3: begin
   Graphique1.Items.Add('Pression artérielle couché sys.');
   Graphique1.Items.Add('Pression artérielle couché dias.');
   Graphique1.Items.Add('Pression artérielle debout sys.');
   Graphique1.Items.Add('Pression artérielle debout dias.');
   Graphique1.Items.Add('Fréquence cardiaque');
   Graphique1.Items.Add('ECG : QTC');
   end;
 
end;

@+

C'est sans doute une molécule trop grosse !

(humour de fin de semaine, excusez c'est la fatigue)

[Fabrice ROUXEL 1]

C'est quoi comme composant Graphique1?
C'est peut être une erreur interne du composant.

[philnext]

Si tu inverses ta ligne avec une autre il bloque sur laquelle ?

[Fabrice ROUXEL 1]

C'est sans doute une molécule trop grosse !

Hehe
Alors il faut remplacer

Code :

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

Graphique1.Items.Add('NFS/Plaquettes');

par

Code :

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

Graphique1.Items.Add('NFS/Plaquette');

pour avoir moins d'erythrocytes.

[philnext]

@Fabrice : tssssssssssssss quand je pense que tu faisais des remarques sur led trolls dans un post précédent !!!

[User]

Fabrice:

Graphique1: Tlistbox (contient les noms des graphiques a visionner)

Graph1 : TDBChart (le graphique en lui m^me mis a jour)

philnext: si j'inverse il se positionne sur la même ligne (l'instruction change mais la ligne pas: ca prouve que le code est bon) si je supprime la lignes il se positionne sur la ligne d'après etc...

A mon avis C'est 1 problème de l'editeur Delphi, tu peux remonter sur les messages précédent que j'ai posté pour plus de précision..sur mon code

merci encore

@+

[philnext]

C'est possible de mettre ton unité dans un petit projet et de nous passer l'ensemble ?

[User]

Phinext : Je vais essayer

ca va me prendre 1 peu de temps car j'ai des références vers d'autre unit à enlever et je dois recrée le module tel qu'il était avant car j'ai fait des modifs.

Je vais essayer de faire ca

@+