Discussion :

[turf_trader]

Bonjour

J ai un pb que je qualifirais de debutant primo parceque j en suis un et secondo parceque je suis certain que cela est du a une incomprehension de ma part dans le type de variable a utiliser mais j ai beau chercher je ne trouve pas la solution seul.
J ai declaré un tableau

Code :

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

Gain : array [1..36] of extended;

j essai dans un boucle de recuperer le contenu d une TStringList pour l 'additionner a Gain avec

Code :

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

Gain[Prono_1] := Gain[Prono_1] + StrTofloat(RG[Prono_1]);

mais cela genere une exception precisant 5.70 ( le contenu de ma Rg[Prono_1] ) n est pas une valeur en virgule flotante correcte.
Si j utilise le type real, j ai le message 'n est pas une valeur reel correcte'.

je precise que j ai declaré ce type pour pouvoir diviser plus tard...

Ces erreurs proviennt elles bien d une erreur de declaration ou de convertion et si oui comment y remedier ?

Merci pour votre aide

[Bruno@Home]

c'est surement que le séparateur décimal n'est pas le bon ça doit etre , et non .

dans ta chaine remplace ',' par decimalseparator et '.' par decimalseparator comme ca quelque soit la configuration local de la machine ça passera...

Bruno

[Clorish]

je precise la reponse qui me semble pas tres clair (desolé bruno@home )

Dans ton code il suffit de tapper a un endroit quelconque (mais avant tout appel a strtoFloat) la ligne suivante :

Code :

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

DecimalSeparator = '.';

ou

Code :

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

DecimalSeparator := ',';

Cette variable permet au systeme de specifier le caractere qui servira de separateur de virgule.

Le probleme viens du fait que nous tournons generalement sur des machines francaises (DecimalSeparator = ',') avec une habitude de coder les chiffre flottant a la mode anglaise (DecimalSeparator = '.')

Donc l'analyse par defaut par le systeme trouve un '.' la ou une ',' est attendu, donc genere l'erreur.

Si tu veux rendre ton application compatible, non pas avec tous les systemes mais avec tous les modes de saisie (tanto '.' tanto ',') il te faudra analyser ta chaine flottante, rechercher l'occurance de '.' ou de ',' et de la remplacer par la valeur de DecimalSeparator ....

[turf_trader]

ok merci j ai saisi le truc seulement, mainteant j ai un pb 'indice hors limite' alors que le tableau est declaré correctement puisque il ne contient que 36 enregistrements maxi et que la somme 'Gain' n'est jamais un nombre de plus de 5 chiffres ...

Pour un tableau de type 'integer' je ne rencontre qucun pb avec [1...36]

comment y remedier ?
Merci

[LadyWasky]

ok merci j ai saisi le truc seulement, mainteant j ai un pb 'indice hors limite' alors que le tableau est declaré correctement puisque il ne contient que 36 enregistrements maxi et que la somme 'Gain' n'est jamais un nombre de plus de 5 chiffres ...

Pour un tableau de type 'integer' je ne rencontre qucun pb avec [1...36]

comment y remédier ?
Merci

Et RG ???

Sinon, un conseil, utilises plutôt des tableaux indicés de 0 à N-1 et non pas de 1 à N.
En effet, et tu trouveras moultes explications (bref c'est un sujet que moi-même ou d'autres forums on déjà abordés) sur le forum, si tu passes un tableau[1..N] comme paramètre d'une procédure ton tableau, dans la procédure, deviendra indicé de [0 à N-1]. Ce qui est piégeant quand on a beaucoup de ligne de codes et que l'on est pas au courant de ce mécanisme (qui n'est pas un bug du langage !!!).

Quoiqu'il en soit, si tu te retrouves avec un indice hors limite, c'est que, forcément, tu dépasses les bornes de ton tableau !
T'es tu posé la question de savoir si Prono_1 pouvait dans ton code prendre la valeur 0 ?

[Clorish]

Ho ?
Un tableau statique de 1 a N deviens dynamqiue de 0 a N-1 en parametre de procedure ?!? Premiere nouvelle .... sacree nouvelle !!

L'ideal pour les tableaux passés en parametre c'est de toute maniere les types :

Code :

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

1
2
3
4
5
Type 
TTabProno = Array[1..N] of Extended
Var Tab : TTabProno;
 
Procedure MaProc(ATab : TTabProno);

A umoins la ca cope court a toute diuscussion (enfin je crois non )

[LadyWasky]

Ho ?
Un tableau statique de 1 a N deviens dynamqiue de 0 a N-1 en parametre de procedure ?!? Premiere nouvelle .... sacree nouvelle !!

L'ideal pour les tableaux passés en parametre c'est de toute maniere les types :

Code :

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

1
2
3
4
5
Type 
TTabProno = Array[1..N] of Extended
Var Tab : TTabProno;
 
Procedure MaProc(ATab : TTabProno);

A umoins la ca cope court a toute diuscussion (enfin je crois non )

Comme ça pas de soucis, comme ça par contre, là il faut faire attention :

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
function somme(Tab:array of integer):integer;
var i:integer;
begin
  result:=0;
  for i:=0 to high(Tab) do
  result:=result+Tab[i];
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var Tableau1:array[1..10]of integer;
     Tableau2:array[18..23]of integer;
     Tableau3:array[-140..-135]of integer; //si, si...
    i:integer;
    MaSomme:integer;
begin
  for i:=1 to 10 do tableau1[i]:=2*i;
  for i:=18 to 23 do tableau2[i]:=3*i;
  for i:=-140 to -135 do tableau3[i]:=i;
 
  MaSomme:=somme(tableau1);
  edit1.text:=IntToStr(MaSomme);
 
  MaSomme:=somme(tableau2);
  edit2.text:=IntToStr(MaSomme);
 
   MaSomme:=somme(tableau3);
  edit3.text:=IntToStr(MaSomme);
end;

Ce qui devrait couper court à tes doutes cher ami

[turf_trader]

merci messieurs pour ces explications qui m ont fait mieux comprendre le 'mecanisme' des tableaux.

Mon erreur provient bel et bien de rg, une tstringlist.
quand j'effectuais

Gain[Prono_1] := Gain[Prono_1] + StrTofloat(RG[Prono_1]);

je me retrouvais avec une erreur d indice etant donné que rg a un index de 0 à 35 et prono_1 etait de 1à 36 ( il commence à 1 )

j ai corrigé mais suis toujours confronté au meme pb.
si je fais Gain[Prono_1] := Gain[Prono_1] + 3 par exemple, tout est ok.

si par contre je fais

Code :

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

1
2
3
 
Prono_0 :=Prono_1-1;
Gain[Prono_1] := Gain[Prono_1] + StrTofloat(RG[Prono_0]);

je suis toujours confronté au meme pb : EStringListError indice hors limites (17).

A qoui coorespond ce 17 ? Qui qoui qu il en soit est < 36 et > 0...

merci

[LadyWasky]

Es tu sur sur sur que RG possède 36 lignes et non 17 (d'où indice max autorisé=17-1=16, et à 17 ça coince) ?

[turf_trader]

merci a vous j ai resolu mon pb d index en reecrivant plus coorectement en m inspirant des reponses precedentes et tout est ok

[Clorish]

Comme ça pas de soucis, comme ça par contre, là il faut faire attention :
[...]


Ce qui devrait couper court à tes doutes cher ami

C'est vrai qu'en declarant un array of integer on a forcement uen variable de type tableaux dynamique
C'ets comem quand on caste une variable avec un type plus bas dans la hierarchie ... on a interet a ce que la zone memoire pointée par la variabel soit coherente avec le type du cast .. sinon

D'ailleur si mes souvenirs sont bons, sous Delphi7 c'est pas possible de declarer un parametre de type tableaux
J'ai souvent du passer par des types tableaux. et la ... plus d'erreurs

[Edit]
Je me suis arrete a Delphi 7

[Clorish]

Truf_trader >> Personelement j'utilise la plupart du temps des tableaux statiques de 0 a N-1 pour justement eviter les pbs de correspondances d'index. Sauf si j'ai vraiement un interet a indexer de N a M, afin de recuperer les index comme valuers (genre tabelaux associatifs )

Astuce : L'ideal est de boucler de 0 a length(tab) -1, comme ca le jour ou tu decide de passer en taille dynamique, ton code reste inchangé

[Cl@udius]

Astuce : L'ideal est de boucler de 0 a length(tab) -1, comme ca le jour ou tu decide de passer en taille dynamique, ton code reste inchangé

Et avec Low et High ! Là au moins pas de soucis.

Code :

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

1
2
 
  for i := Low(tab) to high(tab) do

@+ Claudius

[LadyWasky]

Je me suis arrete a Delphi 7

rhoooooooooo l'excuse...
...parce que moi aussi, j'en suis resté à Delphi 7 !

D'ailleur si mes souvenirs sont bons, sous Delphi7 c'est pas possible de declarer un parametre de type tableaux

c'est-à-dire ?

[LadyWasky]

Et avec Low et High ! Là au moins pas de soucis.

Code :

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

1
2
 
  for i := Low(tab) to high(tab) do

@+ Claudius

+1

[Clorish]

Et avec Low et High ! Là au moins pas de soucis.

Ha oui j'oublie tout le temps ces fonctions :p

[Clorish]

D'ailleur si mes souvenirs sont bons, sous Delphi7 c'est pas possible de declarer un parametre de type tableaux

c'est-à-dire ?

ben ca m'est arrivé d'avori des erreurs de compilation suite a la declaration de tableaux en tant que parametre de fonctions.
Je viens de teser et visiblement ca marche .. ca devait pas etre comem ca

bref, suite a ce genre de problemes j'ai souvent opté pour des type tableaux

Code :

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

Type TTab = array of Integer;

D'ailleur c'est plus propre a mon gout :p
(et surtout plus generique .....)

[Clorish]

ben ca m'est arrivé d'avori des erreurs de compilation suite a la declaration de tableaux en tant que parametre de fonctions.
Je viens de teser et visiblement ca marche .. ca devait pas etre comem ca

Ayé j'ai retrouvé : C'est les tableaux statiques qu'il aime pas !!

Code :

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

procedure Proc(tab : array[1..2] of Integer);