Inhalt eines Memos zusammenrechnen

[theroad]

Also statt . ein , zu setzen (16,95) zählt er schonmal also ich bekomme in meinem Label einen Wert jedoch ist der flasch sobald ich nocheinen Artikel draufrechne stimmt der wert nicht mehr dann habe ich schon 3 mal 16,95 ausgerechnet obwohl ich nur 2Artikel drinn habe. Er rechnet irgendwie zweimal.

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
zahl,b, i : integer;
  b2: real;
begin
eancode := InputBox('Eancode','Bitte den Eancode einscannen!','');
q := 'Select * From artikel Where ean='+eancode+';';
  FResult := FMysql.query(q, true, ex);
 memo1.Lines.Add(FResult.FieldValue(1)) ;
 memo2.Lines.Add(FResult.FieldValue(2));
 for i := 0 to memo2.Lines.Count -1 do begin //letzte Zeile hat den Index Count - 1
  b2:= strtofloatdef(memo2.Lines[i],0); //sicherheitshalber
  summe:= summe + b2;
end;
label1.Caption:= floattostr(summe); //nach Abarbeitung der Schleife sollte reichen
end;

Vielen Dank im voraus
MFG

[Zioone]

bin mir gerade nicht so sicher aber ich würde mal testen deinem i den wert 1 zuzuweisen und nicht bei 0 anzufangen.

[DeddyH]

Du setzt "summe" ja auch nicht vorher auf 0. Btw: merkwürdige Einrückung :gruebel:

[franktron]

Was willst du eigentlich mit dem Memos erreichen.

Währe das nicht einfacher die Summe direkt aus der DB zu hohlen

[DeddyH]

Auf jeden Fall schneller ;)

[theroad]

Danke für den Hinweis.
Ich hohle jetzt die werte direkt aus der DB jetzt gehts...

Wenn man sich zu sehr auf eine Sache konzentriert denkt man nicht über andere Möglichkeiten nach :-D

Vielen Dank euch allen!

MFg
TheRoad