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