Hey Leute,
ich bin am Verzweifeln.. Ich habe ein Programm, dass Euro Beträge in ein MemoFeld läd und bei Klick ausrechnet. Man kann jedoch Daten hinzufügen.
Wenn ich jetzt 100€, 100€ und 123,59€ buche, rechnet mir das Prgramm einen Betrag von 26€ zusammen.
Ich habe die Nacht schon mit Christian Seehase gesprochen, da mein Programm die letzte Zahl der Kommastelle zu dem Ergebnis vor dem Komma addiert. Er meinte, auf seinem Rechner geht das Prog einwandtfrei.
Auf meinen beiden allerdings NICHT.
Eins noch, was mich irritiert:
Ich habe 20 Konten angelegt und von Konto 1 - 9 können alle Werte eingegeben werden und es wird richtig ausgerechnet. Allerding von Konto 10 - 20 tritt der oben genannte Fehler auf, (100+100+123,59=26).
Ich habe aber überall den selben Code benutzt. Wie kann das sein?
hier der KOMPLETTE Code für die Rechnungen:
Delphi-Quellcode:
implementation
uses Unit1, Unit3;
{$R *.dfm}
var i: integer; Ergebnis: extended;
var i1: integer; Ergebnis2: extended;
var i2: integer; Ergebnis3: extended;
var i3: integer; Ergebnis4: extended;
var i4: integer; Ergebnis5: extended;
var i5: integer; Ergebnis6: extended;
var i6: integer; Ergebnis7: extended;
var i7: integer; Ergebnis8: extended;
var i8: integer; Ergebnis9: extended;
var i9: integer; Ergebnis10: extended;
var i10: integer; Ergebnis11: extended;
var i11: integer; Ergebnis12: extended;
var i12: integer; Ergebnis13: extended;
var i13: integer; Ergebnis14: extended;
var i14: integer; Ergebnis15: extended;
var i15: integer; Ergebnis16: extended;
var i16: integer; Ergebnis17: extended;
var i17: integer; Ergebnis18: extended;
var i18: integer; Ergebnis19: extended;
var i19: integer; Ergebnis20: extended;
.
.
.
procedure TForm4.Button21Click(Sender: TObject);
begin
Ergebnis:=0;
for i:=0 to Memo2.Lines.Count-1 do
begin
Ergebnis:=Ergebnis+StrToFloat(Memo2.Lines[i]);
end;
Edit41.text:=FloatToStr(Ergebnis);
end;
procedure TForm4.Button22Click(Sender: TObject);
begin
Ergebnis2:=0;
for i1:=0 to Memo3.Lines.Count-1 do
begin
Ergebnis2:=Ergebnis2+StrToFloat(Memo3.Lines[i1]);
end;
Edit42.text:=FloatToStr(Ergebnis2);
end;
procedure TForm4.Button23Click(Sender: TObject);
begin
Ergebnis3:=0;
for i2:=0 to Memo5.Lines.Count-1 do
begin
Ergebnis3:=Ergebnis3+StrToFloat(Memo5.Lines[i2]);
end;
Edit43.text:=FloatToStr(Ergebnis3);
end;
procedure TForm4.Button24Click(Sender: TObject);
begin
Ergebnis4:=0;
for i3:=0 to Memo7.Lines.Count-1 do
begin
Ergebnis4:=Ergebnis4+StrToFloat(Memo7.Lines[i3]);
end;
Edit44.text:=FloatToStr(Ergebnis4);
end;
procedure TForm4.Button25Click(Sender: TObject);
begin
Ergebnis5:=0;
for i4:=0 to Memo9.Lines.Count-1 do
begin
Ergebnis5:=Ergebnis5+StrToFloat(Memo9.Lines[i4]);
end;
Edit45.text:=FloatToStr(Ergebnis5);
end;
procedure TForm4.Button26Click(Sender: TObject);
begin
Ergebnis6:=0;
for i5:=0 to Memo11.Lines.Count-1 do
begin
Ergebnis6:=Ergebnis6+StrToFloat(Memo11.Lines[i5]);
end;
Edit46.text:=FloatToStr(Ergebnis6);
end;
procedure TForm4.Button27Click(Sender: TObject);
begin
Ergebnis7:=0;
for i6:=0 to Memo13.Lines.Count-1 do
begin
Ergebnis7:=Ergebnis7+StrToFloat(Memo13.Lines[i6]);
end;
Edit47.text:=FloatToStr(Ergebnis7);
end;
procedure TForm4.Button28Click(Sender: TObject);
begin
Ergebnis8:=0;
for i7:=0 to Memo15.Lines.Count-1 do
begin
Ergebnis8:=Ergebnis8+StrToFloat(Memo15.Lines[i7]);
end;
Edit48.text:=FloatToStr(Ergebnis8);
end;
procedure TForm4.Button29Click(Sender: TObject);
begin
Ergebnis9:=0;
for i8:=0 to Memo17.Lines.Count-1 do
begin
Ergebnis9:=Ergebnis9+StrToFloat(Memo17.Lines[i8]);
end;
Edit49.text:=FloatToStr(Ergebnis9);
end;
procedure TForm4.Button30Click(Sender: TObject);
begin
Ergebnis10:=0;
for i9:=0 to Memo19.Lines.Count-1 do
begin
Ergebnis10:=Ergebnis10+StrToFloat(Memo19.Lines[i9]);
end;
Edit50.text:=FloatToStr(Ergebnis10);
end;
procedure TForm4.Button31Click(Sender: TObject);
begin
Ergebnis11:=0;
for i10:=0 to Memo21.Lines.Count-1 do
begin
Ergebnis11:=Ergebnis11+StrToFloat(Memo21.Lines[i10]);
end;
Edit51.text:=FloatToStr(Ergebnis11);
end;
procedure TForm4.Button32Click(Sender: TObject);
begin
Ergebnis12:=0;
for i11:=0 to Memo23.Lines.Count-1 do
begin
Ergebnis12:=Ergebnis12+StrToFloat(Memo23.Lines[i11]);
end;
Edit52.text:=FloatToStr(Ergebnis12);
end;
procedure TForm4.Button33Click(Sender: TObject);
begin
Ergebnis13:=0;
for i12:=0 to Memo25.Lines.Count-1 do
begin
Ergebnis13:=Ergebnis13+StrToFloat(Memo25.Lines[i12]);
end;
Edit53.text:=FloatToStr(Ergebnis13);
end;
procedure TForm4.Button34Click(Sender: TObject);
begin
Ergebnis14:=0;
for i13:=0 to Memo27.Lines.Count-1 do
begin
Ergebnis14:=Ergebnis14+StrToFloat(Memo27.Lines[i13]);
end;
Edit54.text:=FloatToStr(Ergebnis14);
end;
procedure TForm4.Button35Click(Sender: TObject);
begin
Ergebnis15:=0;
for i14:=0 to Memo29.Lines.Count-1 do
begin
Ergebnis15:=Ergebnis15+StrToFloat(Memo29.Lines[i14]);
end;
Edit55.text:=FloatToStr(Ergebnis15);
end;
procedure TForm4.Button36Click(Sender: TObject);
begin
Ergebnis16:=0;
for i15:=0 to Memo31.Lines.Count-1 do
begin
Ergebnis16:=Ergebnis16+StrToFloat(Memo31.Lines[i15]);
end;
Edit56.text:=FloatToStr(Ergebnis16);
end;
procedure TForm4.Button37Click(Sender: TObject);
begin
Ergebnis17:=0;
for i16:=0 to Memo33.Lines.Count-1 do
begin
Ergebnis17:=Ergebnis17+StrToFloat(Memo33.Lines[i16]);
end;
Edit57.text:=FloatToStr(Ergebnis17);
end;
procedure TForm4.Button38Click(Sender: TObject);
begin
Ergebnis18:=0;
for i17:=0 to Memo35.Lines.Count-1 do
begin
Ergebnis18:=Ergebnis18+StrToFloat(Memo35.Lines[i17]);
end;
Edit58.text:=FloatToStr(Ergebnis18);
end;
procedure TForm4.Button39Click(Sender: TObject);
begin
Ergebnis19:=0;
for i18:=0 to Memo37.Lines.Count-1 do
begin
Ergebnis19:=Ergebnis19+StrToFloat(Memo37.Lines[i18]);
end;
Edit59.text:=FloatToStr(Ergebnis19);
end;
procedure TForm4.Button40Click(Sender: TObject);
begin
Ergebnis20:=0;
for i18:=0 to Memo39.Lines.Count-1 do
begin
Ergebnis20:=Ergebnis20+StrToFloat(Memo39.Lines[i18]);
end;
Edit59.text:=FloatToStr(Ergebnis20);
end;
end.
Bitte helft mir...