Programm irreperabel?

[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...