Programm irreperabel?

[TheMiller]

Hey Leute...

in einen meiner vorherigen Threads hatte ich mal eine Rechenaufgabe angesprochen, bei der 100+100+100 = 3 ergibt.

Ich finde den Fehler absolut nicht. Wer würde sich bereiterklären, mal nachzusehen?

zur Info:

Es handelt sich heir um ein Mietsaldierungsprogramm. Es können Mieterkonten eröffnet werden und von Daten werden buchungen geladen und können erweitert werden...

Würde euch das Programm mit Source schicken...

Wäre sau nett, wenn sich jmd. bemühen würde...

[Daniel B]

Hi,

1. würde es uns evtl. auch schon recihen wenn Du die Prozedur hier reinstellst die rechnet und 2., ab nach dElphi-Language das hat "noch" nicht mit der VCL zutun.

[TheMiller]

Hier ist die gesamte prozedur...

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;

Memo2.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto1.shd');
Memo1.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto1.kaz');

Memo3.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto2.shd');
Memo4.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto2.kaz');

Memo5.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto3.shd');
Memo6.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto3.kaz');

Memo7.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto4.shd');
Memo8.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto4.kaz');

Memo9.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto5.shd');
Memo10.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto5.kaz');

Memo11.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto6.shd');
Memo12.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto6.kaz');

Memo13.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto7.shd');
Memo14.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto7.kaz');

Memo15.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto8.shd');
Memo16.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto8.kaz');

Memo17.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto9.shd');
Memo18.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto9.kaz');

Memo19.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto10.shd');
Memo20.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto10.kaz');

Memo21.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto11.shd');
Memo22.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto11.kaz');

Memo23.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto12.shd');
Memo24.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto12.kaz');

Memo25.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto13.shd');
Memo26.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto13.kaz');

Memo27.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto14.shd');
Memo28.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto14.kaz');

Memo29.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto15.shd');
Memo30.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto15.kaz');

Memo31.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto16.shd');
Memo32.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto16.kaz');

Memo33.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto17.shd');
Memo34.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto17.kaz');

Memo35.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto18.shd');
Memo36.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto18.kaz');

Memo37.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto19.shd');
Memo38.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto19.kaz');

Memo39.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto20.shd');
Memo40.Lines.LoadFromFile(extractfilepath(paramstr(0))+'Data\Konto20.kaz');

end;


procedure TForm4.Button4Click(Sender: TObject);

begin
Memo8.Lines.add(Datetostr(DateTimePicker4.Date) +'  ' +edit7.Text + ' €');
Memo8.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto4.kaz');
Memo7.Lines.add (edit7.Text);
Memo7.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto4.shd');
end;

procedure TForm4.Button5Click(Sender: TObject);
begin
Memo10.Lines.add(Datetostr(DateTimePicker5.Date) +'  ' +edit9.Text + ' €');
Memo10.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto5.kaz');
Memo9.Lines.add (edit9.Text);
Memo9.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto5.shd');
end;

procedure TForm4.Button6Click(Sender: TObject);
begin
Memo12.Lines.add(Datetostr(DateTimePicker6.Date) +'  ' +edit11.Text + ' €');
Memo12.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto6.kaz');
Memo11.Lines.add (edit11.Text);
Memo11.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto6.shd');
end;

procedure TForm4.Button19Click(Sender: TObject);
begin
Memo14.Lines.add(Datetostr(DateTimePicker7.Date) +'  ' +edit13.Text + ' €');
Memo14.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto7.kaz');
Memo13.Lines.add (edit13.Text);
Memo13.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto7.shd');
end;

procedure TForm4.Button20Click(Sender: TObject);
begin
Memo16.Lines.add(Datetostr(DateTimePicker8.Date) +'  ' +edit15.Text + ' €');
Memo16.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto8.kaz');
Memo15.Lines.add (edit15.Text);
Memo15.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto8.shd');
end;

procedure TForm4.Button7Click(Sender: TObject);
begin
Memo18.Lines.add(Datetostr(DateTimePicker9.Date) +'  ' +edit17.Text + ' €');
Memo18.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto9.kaz');
Memo17.Lines.add (edit17.Text);
Memo17.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto9.shd');
end;

procedure TForm4.Button8Click(Sender: TObject);
begin
Memo20.Lines.add(Datetostr(DateTimePicker10.Date) +'  ' +edit19.Text + ' €');
Memo20.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto10.kaz');
Memo19.Lines.add (edit19.Text);
Memo19.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto10.shd');
end;

procedure TForm4.Button9Click(Sender: TObject);
begin
Memo22.Lines.add(Datetostr(DateTimePicker11.Date) +'  ' +edit21.Text + ' €');
Memo22.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto11.kaz');
Memo21.Lines.add (edit21.Text);
Memo21.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto11.shd');
end;

procedure TForm4.Button10Click(Sender: TObject);
begin
Memo24.Lines.add(Datetostr(DateTimePicker12.Date) +'  ' +edit23.Text + ' €');
Memo24.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto12.kaz');
Memo23.Lines.add (edit23.Text);
Memo23.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto12.shd');
end;

procedure TForm4.Button11Click(Sender: TObject);
begin
Memo26.Lines.add(Datetostr(DateTimePicker13.Date) +'  ' +edit25.Text + ' €');
Memo26.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto13.kaz');
Memo25.Lines.add (edit25.Text);
Memo25.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto13.shd');
end;

procedure TForm4.Button12Click(Sender: TObject);
begin
Memo28.Lines.add(Datetostr(DateTimePicker14.Date) +'  ' +edit27.Text + ' €');
Memo28.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto14.kaz');
Memo27.Lines.add (edit27.Text);
Memo27.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto14.shd');
end;

procedure TForm4.Button13Click(Sender: TObject);
begin
Memo30.Lines.add(Datetostr(DateTimePicker15.Date) +'  ' +edit29.Text + ' €');
Memo30.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto15.kaz');
Memo29.Lines.add (edit29.Text);
Memo29.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto15.shd');
end;

procedure TForm4.Button14Click(Sender: TObject);
begin
Memo32.Lines.add(Datetostr(DateTimePicker16.Date) +'  ' +edit31.Text + ' €');
Memo32.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto16.kaz');
Memo31.Lines.add (edit31.Text);
Memo31.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto16.shd');
end;

procedure TForm4.Button15Click(Sender: TObject);
begin
Memo34.Lines.add(Datetostr(DateTimePicker17.Date) +'  ' +edit33.Text + ' €');
Memo34.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto17.kaz');
Memo33.Lines.add (edit33.Text);
Memo33.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto17.shd');
end;

procedure TForm4.Button16Click(Sender: TObject);
begin
Memo36.Lines.add(Datetostr(DateTimePicker18.Date) +'  ' +edit35.Text + ' €');
Memo36.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto18.kaz');
Memo35.Lines.add (edit35.Text);
Memo35.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto18.shd');
end;

procedure TForm4.Button17Click(Sender: TObject);
begin
Memo38.Lines.add(Datetostr(DateTimePicker19.Date) +'  ' +edit37.Text + ' €');
Memo38.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto19.kaz');
Memo37.Lines.add (edit37.Text);
Memo37.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto19.shd');
end;

procedure TForm4.Button18Click(Sender: TObject);
begin
Memo40.Lines.add(Datetostr(DateTimePicker20.Date) +'  ' +edit39.Text + ' €');
Memo40.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto20.kaz');
Memo39.Lines.add (edit39.Text);
Memo39.Lines.SaveToFile(extractFilePath(paramstr(0))+'\Data\Konto20.shd');
end;

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.

So , da stecken fehler drin... Ich denke, es wird euch nichts ohne das eigentliche Prog bringen, da bei Konto 1-3 alles richtig geht. Der rest net. Und warum weis ich net...

[Luckie]

Öhm, ich weiß ja nicht, aber dass du da den Fehler nicht findest, wundert mich eigentlich gar nicht.

Versuch das ganze mal etwas effizienter zu schreiben. Sprich versuch mal ein paar globale Variablen los zu werden. Wie man den Rest verpessern könnte, weiß ich jetzt auch nicht, dazu müßte ich den Code erstmal analysieren, aber ohne weitere Erklärungen, was er machen soll etwas schwiereig.

[TheMiller]

Jup, auf diese Antwort habe ich gewartet

Hm...ich weis mir (auch im Code) nicht weiter zu helfen. Es geht auch mit arreys, nur weis net wie...

[toms]

Zitat:

Memo2.Lines.LoadFromFile(extractfilepath(paramstr( 0))+'Data\Konto1.shd');
Memo1.Lines.LoadFromFile(extractfilepath(paramstr( 0))+'Data\Konto1.kaz');

{...}

Memo39.Lines.LoadFromFile(extractfilepath(paramstr (0))+'Data\Konto20.shd');
Memo40.Lines.LoadFromFile(extractfilepath(paramstr (0))+'Data\Konto20.kaz');

Könntest du etwa so umschreiben:

Delphi-Quellcode:

var
  i: Integer;
  strFilePath: string;
begin
  strFilePath := ExtractFilePath(ParamStr(0));
  for i := 1 to 39 do
  begin
    TMemo(FindComponent('Memo'+IntToStr(i))).Lines.LoadFromFile(strFilePath +'Data\Konto'+IntToStr(i)+'.kaz');
    TMemo(FindComponent('Memo'+IntToStr(i+1))).Lines.LoadFromFile(strFilePath +'Data\Konto'+IntToStr(i)+'.shd');
  end;
end;

[Memo]

Wie sieht den eine typische Zeile aus sagen wir mal Konto5.shd aus?

[Daniel B]

Hi,

also die Variablen lassen sich jedenfall ein bisschen zusammenfalten. Ausserdem solltest Du beim ix und! bei Ergebnisx mit 0 anfangen, sonst ist das um 1 verschoben und Du kommst da evtl. durcheinander, habe ich jetzt da schon mit reingemacht.

Delphi-Quellcode:

var
  i, i1, i2, i3, i4, i4, i5, i6, i7, i8, i9,
    i10, i11, i12, i13, i14, i15, i16, i17, i18, i19: Integer;
  Ergebnis, Ergebnis1, Ergebnis2, Ergebnis3, Ergebnis4,
    Ergebnis5, Ergebnis6, Ergebnis7, Ergebnis8, Ergebnis9,
    Ergebnis10, Ergebnis11, Ergebnis12, Ergebnis13, Ergebnis14,
    Ergebnis15, Ergebnis16, Ergebnis17, Ergebnis18, Ergebnis19: Extendet;

[Luckie]

Da finde ich aber seien Schreibweise übersichtlicher.

[TheMiller]

Hey das sind ja schon eine Menge brauchbare antworten...

Ich werde mich heute nacht mal dransetzen, da ich jetzt erstmal weg mus...

Erstmal: danke für eure bisherigen Bemühungen...

bye