Inhalt eines Memos zusammenrechnen

[theroad]

Hallo,

ich habe ein Memo in dem Zahlenwerte stehen (mit kommastellen) diese möchte ich gerne zusammenrechnen.

Ich habe leider keine informationen gefunden wie ich die einzelnen Zeilen addieren kann.

Vielen Dank im voraus

MFG

[DeddyH]

Geh die Zeilen in einer Schleife durch (von 0 bis Lines.Count - 1), wandele den String in eine Float um und addiere auf.

[theroad]

Habe das jetzt mal so gemacht:

Delphi-Quellcode:

  for i := 0 to memo2.Lines.Count do begin
  i++
  b2:= strtofloat(memo2.Lines.Strings[i]);
  summe2:= summe2 + b2;
  label1.Caption:= floattostr(summe2);

es funktioniert nur leider nicht, die Variabelen habe ich alle als Real deklariert.

Es kommt dieser Fehler:

Zitat:

[DCC Fehler] Unit3.pas(63): E2064 Der linken Seite kann nichts zugewiesen werden
[DCC Fehler] Project2.dpr(7): F2063 Verwendete Unit 'Unit3.pas' kann nicht compiliert werden

Vielen Dank im Voraus
MFG

[mkinzler]

for i := 0 to memo2.Lines.Count - 1 Statt

Code:

i++

inc(i);

[DeddyH]

Nicht die Sprachen durcheinanderwerfen, i++ ist C-Syntax und eine Änderung der Laufvariablen ist bei For-Schleifen sowieso nicht erlaubt.

Delphi-Quellcode:

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

[edit] TryStrToFloat und StrToFloatDef durcheinandergeworfen [/edit]

[Fridolin Walther]

Zitat von theroad:

Habe das jetzt mal so gemacht:

Delphi-Quellcode:

  for i := 0 to memo2.Lines.Count do begin
  i++
  b2:= strtofloat(memo2.Lines.Strings[i]);
  summe2:= summe2 + b2;
  label1.Caption:= floattostr(summe2);

es funktioniert nur leider nicht, die Variabelen habe ich alle als Real deklariert.

Mal so ne Frage ... was macht das i++ da? Davon abgesehen ist Deine for Schleife nicht korrekt. Arrays, Listen etc. beginnen normalerweise bei 0 an zu zählen und nicht bei 1. Wenn Du also durchläufst, würdest du versuchen irgendwann auf memo2.lines[memo2.lines.count] zuzugreifen. Das wäre aber nicht das letzt Element in der Liste, sondern das Letzte + 1, weil wie gesagt nicht von 1 angefangen wird zu zählen, sondern bei 0.

Abgesehen davon: Welche Zeile in deinem Quelltext entspricht der Zeile 63 aus der Fehlermeldung?

[theroad]

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

[soulies]

hoi,

Zitat:

die zahlen immer so eingetragen: z.b. 16.95

ich vermute du erhälst das richtige ergebnis wenn es 16,95 sein würde, also versuch mal

b2:= strtofloatdef(StringReplace(memo2.Lines[i],'.',',',[rfReplaceAll]),0); um herauszufinden ob es so ist, die werte an sich kannst du ja denn wo anders ändern ...


cya

[Teekeks]

Zitat von theroad:

q := 'Select * From artikel Where ean='+eancode+';';

Seit wann brauch man bei einer SQL-Anweisung ein ";" am ende?

[mkinzler]

Laut Definition gehört eines hin, auch wenn die meissten DBMS ein Fehlen ignorieren