100 + 100 + 123,59 = 26???

[Illuminator-23-5]

das mit den arrays is ganz einfach:

Delphi-Quellcode:

var
  i: array[0..19] of integer;
...
procedure Button40Click(Sender: TObject);
begin
  Ergebnis20:=0;
  for i[18]:=0 to Memo39.Lines.Count-1 do
  begin
    Ergebnis20:=Ergebnis20+StrToFloat(Memo39.Lines[i[18]]);
  end;
  Edit59.text:=FloatToStr(Ergebnis20);
end;

anders gehts auch:
(Hier ohne array)

Delphi-Quellcode:

procedure Button40Click(Sender: TObject);
var
  i: integer;
begin
  Ergebnis20:=0;
  for i:=0 to Memo39.Lines.Count-1 do
  begin
    Ergebnis20:=Ergebnis20+StrToFloat(Memo39.Lines[i]);
  end;
  Edit59.text:=FloatToStr(Ergebnis20);
end;