Ich bekomme es einfach nicht hin.
Hier einmal der ganze Quellcode der dahinter steckt. in memo2 sind die zahlen immer so eingetragen: z.b. 16.95
Jedoch bleibt der wert im label immer 0
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
summe2:= summe2 + b2;
end;
label1.Caption:= floattostr(summe2); //nach Abarbeitung der Schleife sollte reichen
end;
Vielen Dank im voraus
MFG
TheRoad