Discussion :

[DariusXI]

Bonsoir,

je rencontre un problème dans le traitement de données contenues dans un mémo.
Je dois récupérer des nombres, chiffres par chiffres contenus dans le mémo 1 vers mon tableau pour ensuite les additionner
par exemple

12345 = 1+2+3+4+5
ces nombres sont composés de 5 chiffres au minimum et 10 au max
lorsque ma boucle for J (l'imbriqué) est paramétrée sur 1 to 5 pas de soucis
exemple 12345 = 1+2+3+4+5 = 15 (affiché dans memo2)

par contre lorsque ma boucle est for J est paramétrée sur 6 et+ (10 max) le dernier caractère est réitéré et additionné

exemple sur boucle J 1 to 10

12345 = 1+2+3+4+5+5+5+5+5+5 ce qui renvoie une valeur erronée

avec un nombre composé de 10 chiffre aucuns soucis

En espérant que vous puissiez éclairer ma lanterne
je vous fais parvenir ci bas le code utilisé

Bonne soirée et cordialement

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
procedure TForm1.Button3Click(Sender: TObject);
var nombre : string ;
i,j: integer;
tableau : array of longint;
 
begin
Memo2.Text:='';
nombre := (memo1.Lines.Text);
SetLength(tableau,memo1.Lines.Count + 1);
 
for i := 0 to memo1.Lines.Count -1 do
  begin
  for j := 1 to 10  do
        begin
           if copy(memo1.Lines[I],j,1) <> '' then
 
              nombre := copy(memo1.Lines[I],j,1);
              tableau[i] := tableau[i] + strtoint(nombre);
 
            end;
 
      Memo2.Lines.Add(IntToStr(tableau[I]));
 
  end;
 
end;
 
end.

[JustMe]

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
procedure TForm1.Button3Click(Sender: TObject);
var
  nombre                 : string;
  i, j                   : integer;
  tableau                : array of longint;
begin
  Memo2.Text := '';
  nombre := (memo1.Lines.Text);
  SetLength(tableau, memo1.Lines.Count + 1);
 
  for i := 0 to memo1.Lines.Count - 1 do
  begin
    for j := 1 to 10 do
    begin
      if  (memo1.Lines[I][J] in ['0'..'9']) then
       begin
        nombre := memo1.Lines[I][J];
        tableau[i] := tableau[i] + strtoint(nombre);
       end;
    end;
    Memo2.Lines.Add(IntToStr(tableau[I]));
  end;
end;

[DariusXI]

bonsoir,


merci d'avoir répondu avec célérité !
je rencontre un soucis avec la ligne suivante
if (memo1.Lines[I][J] in ['0'..'9']) then
erreur d'étendue

Cordialement et bonne soirée

[Paul TOTH]

Bonjour, par partirais sur une autre approche

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
 
var
  i,j,k: Integer;
  s:string;
  c: Char;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    s := Memo1.Lines[i];
    k := 0;
    for j := 1 to Length(s) do
    begin
      c := s[j];
      if c in ['0'..'9'] then
         Inc(k, Ord(c) - Ord('0'));
    end;
    Memo2.Lines.Add(IntToStr(k));
  end;
end;

[JustMe]

Je ne dirais pas mieux

[DariusXI]

Bonjour,

Voila que je reprends delphi (delphi 6) après + de 6 ans d'inactivité ^^
Je pensais que c'était comme le vélo et bien non ...
D'autant que j'utilise actuellement la version embarcadero xe....
Heureusement ce n'est pas la doc qui manque et qui plus est je constate qu'il y a encore des amateurs delphi.

En conclusion persévérance ^^

Quoiqu'il en soit un grand merci de vos réponses


Au plaisir et cordialement.

[Caribensila]

@ Paul TOTH

Code :

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

if c in ['0'..'9'] then Inc(k, Ord(c) - Ord('0'));

C'est le genre de truc qui me laisse baba !
Je me demande où tu vas chercher des trucs comme ça.

Ca a un parfum de logique orientale, je trouve...