somme dans un mémoRésolu

Question

bonjour, je suis en train de me prendre la tete avec un calcul simple de somme dans un m&#233;mo. je m'explique j'ai des valeurs num&#233;riques &#224; virgule dans un Tm&#233;mo avec un nombre de ligne different &#224; chaque fois , ce que je souhaite c'est pouvoir faire la somme de toutes ces valeurs.  J'ai essay&#233; avec une boucle for et un memo.line.count mais rein a faire il ne me calcule rien .
Quelqu'un peut il m'aiguiller sur une solution  - merci par avance

didou

jlen100 · Accepted Answer

salut je viens d'essayer quelque chose qui marche:



procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

somme:real;

begin

    somme:= 0;

     with  memo1 do

    begin

        for i: =0 to lines.Count-1 do

        begin

            somme:= somme+strtofloat(lines[i]);

         end ;

    end;

    label1.Caption: =floattostr(somme);

end;

nota: si tu rentre les valeurs dans l'&#233;diteur de code quand tu rentre
de nouvelles valeurs, elles ne sont prises en compte que si tu
l'enrgistre.

bonne prog

didou2dek · Answer

merci super sympa

didou

f0xi · Answer

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
Total, Value : Extended;
begin
  Total := 0;
  Value := 0;
  for I := 0 to Memo1.Lines.Count-1 do
    if TryStrToFloat(Memo1.Lines[i], Value) then
      Total := Total + Value;

  Label1.Caption := format('%.4n',[Total]);
end;

Somme dans un mémo

3 réponses

Votre réponse

Discussions similaires