procedure TForm1.LMDSpeedButton2Click(Sender: TObject);
var
Gesamtzahl:double;
Gesamtzahlen: array[1..48] of double;
i:integer;
s : String;
begin
Gesamtzahl:=0;
for i := Low(Gesamtzahlen) to High(Gesamtzahlen) do Gesamtzahlen[i] := 0;
for i:=1 to eltreestringgrid1.RowCount-1 do begin
if eltreestringgrid1.cells[5,i]='2110' then begin
s := ElTreeStringGrid1.Cells[2,i];
SetLength(S, Length(s) - 2);
Gesamtzahl := Gesamtzahl + StrToFloat(S);
ElTreeStringGrid1.Cells[2,i] := S + ' €';
end;
if eltreestringgrid1.cells[5,i]='3221' then begin
s := eltreestringgrid1.Cells[2,i];
setlength(e,length(s)-2);
gesamtzahlen[1]:=gesamtzahlen[1] + strtofloat(eltreestringgrid1.cells[2,i]);
eltreestringgrid1.Cells[2,i]:=eltreestringgrid1.Cells[2,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='2303' then begin
s := eltreestringgrid1.Cells[2,i];
setlength(e,length(s)-2);
gesamtzahlen[2]:=gesamtzahlen[2] + strtofloat(eltreestringgrid1.cells[2,i]);
eltreestringgrid1.Cells[2,i]:=eltreestringgrid1.Cells[2,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='2400' then begin
s := eltreestringgrid1.Cells[2,i];
setlength(e,length(s)-2);
gesamtzahlen[3]:=gesamtzahlen[3] + strtofloat(eltreestringgrid1.cells[2,i]);
eltreestringgrid1.Cells[2,i]:=eltreestringgrid1.Cells[2,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='2750' then begin
s := eltreestringgrid1.Cells[3,i];
setlength(e,length(s)-2);
gesamtzahlen[6]:=gesamtzahlen[6] + strtofloat(eltreestringgrid1.cells[3,i]);
eltreestringgrid1.Cells[3,i]:=eltreestringgrid1.Cells[3,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='2900' then begin
s := eltreestringgrid1.Cells[3,i];
setlength(e,length(s)-2);
gesamtzahlen[7]:=gesamtzahlen[7] + strtofloat(eltreestringgrid1.cells[3,i]);
eltreestringgrid1.Cells[3,i]:=eltreestringgrid1.Cells[3,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='4110' then begin
s := eltreestringgrid1.Cells[2,i];
setlength(e,length(s)-2);
gesamtzahlen[12]:=gesamtzahlen[12] + strtofloat(eltreestringgrid1.cells[2,i]);
eltreestringgrid1.Cells[2,i]:=eltreestringgrid1.Cells[2,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='4150' then begin
s := eltreestringgrid1.Cells[2,i];
setlength(e,length(s)-2);
gesamtzahlen[13]:=gesamtzahlen[13] + strtofloat(eltreestringgrid1.cells[2,i]);
eltreestringgrid1.Cells[2,i]:=eltreestringgrid1.Cells[2,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='4230' then begin
s := eltreestringgrid1.Cells[2,i];
setlength(e,length(s)-2);
gesamtzahlen[14]:=gesamtzahlen[14] + strtofloat(eltreestringgrid1.cells[2,i]);
eltreestringgrid1.Cells[2,i]:=eltreestringgrid1.Cells[2,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='4900' then begin
s := eltreestringgrid1.Cells[3,i];
setlength(e,length(s)-2);
gesamtzahlen[17]:=gesamtzahlen[17] + strtofloat(eltreestringgrid1.cells[3,i]);
eltreestringgrid1.Cells[3,i]:=eltreestringgrid1.Cells[3,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='5020' then begin
s := eltreestringgrid1.Cells[2,i];
setlength(e,length(s)-2);
gesamtzahlen[21]:=gesamtzahlen[21] + strtofloat(eltreestringgrid1.cells[2,i]);
eltreestringgrid1.Cells[2,i]:=eltreestringgrid1.Cells[2,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='5250' then begin
s := eltreestringgrid1.Cells[2,i];
setlength(e,length(s)-2);
gesamtzahlen[22]:=gesamtzahlen[22] + strtofloat(eltreestringgrid1.cells[2,i]);
eltreestringgrid1.Cells[2,i]:=eltreestringgrid1.Cells[2,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='5872' then begin
s := eltreestringgrid1.Cells[3,i];
setlength(e,length(s)-2);
gesamtzahlen[24]:=gesamtzahlen[24] + strtofloat(eltreestringgrid1.cells[3,i]);
eltreestringgrid1.Cells[3,i]:=eltreestringgrid1.Cells[3,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='5650' then begin
s := eltreestringgrid1.Cells[3,i];
setlength(e,length(s)-2);
gesamtzahlen[25]:=gesamtzahlen[25] + strtofloat(eltreestringgrid1.cells[3,i]);
eltreestringgrid1.Cells[3,i]:=eltreestringgrid1.Cells[3,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='8028' then begin
s := eltreestringgrid1.Cells[2,i];
setlength(e,length(s)-2);
gesamtzahlen[41]:=gesamtzahlen[41] + strtofloat(eltreestringgrid1.cells[2,i]);
eltreestringgrid1.Cells[2,i]:=eltreestringgrid1.Cells[2,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='7100' then begin
s := eltreestringgrid1.Cells[2,i];
setlength(e,length(s)-2);
gesamtzahlen[42]:=gesamtzahlen[42] + strtofloat(eltreestringgrid1.cells[2,i]);
eltreestringgrid1.Cells[2,i]:=eltreestringgrid1.Cells[2,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='8150' then begin
s := eltreestringgrid1.Cells[3,i];
setlength(e,length(s)-2);
gesamtzahlen[45]:=gesamtzahlen[45] + strtofloat(eltreestringgrid1.cells[3,i]);
eltreestringgrid1.Cells[3,i]:=eltreestringgrid1.Cells[3,i]+' €';
end;
if eltreestringgrid1.cells[5,i]='7358' then begin
s := eltreestringgrid1.Cells[3,i];
setlength(e,length(s)-2);
gesamtzahlen[46]:=gesamtzahlen[46] + strtofloat(eltreestringgrid1.cells[3,i]);
eltreestringgrid1.Cells[3,i]:=eltreestringgrid1.Cells[3,i]+' €';
end;
Form9.Label2110.Caption := 'Mitgliedsbeiträge:';
Form9.Edit1.text := Format('%f €', [Gesamtzahl]);
Form9.Label3221.Caption := 'Spenden:';
Form9.Edit2.text := Format('%f €', [Gesamtzahlen[1]]);
Form9.Label2303.Caption := 'Zuschüsse:';
Form9.Edit3.text := Format('%f €', [Gesamtzahlen[2]]);
Form9.Label2400.Caption := 'sonstige Einnahmen:';
Form9.Edit4.text := Format('%f €', [Gesamtzahlen[3]]);
Gesamtzahlen[4] := Gesamtzahl + Gesamtzahlen[1] + Gesamtzahlen[2] + Gesamtzahlen[3];
Form9.LabelGesamt.Caption := 'Summe Einnahmen:';
Form9.Edit5.text := Format('%f €', [Gesamtzahlen[4]]);
Gesamtzahlen[5]:=0;
Form9.Edit6.text := Format('%f €', [Gesamtzahlen[5]]);
Form9.Edit7.text := Format('%f €', [Gesamtzahlen[6]]);
Form9.Edit8.text := Format('%f €', [Gesamtzahlen[7]]);
Gesamtzahlen[8] := Gesamtzahlen[5] + Gesamtzahlen[6] + Gesamtzahlen[7];
Form9.Edit9.text := Format('%f €', [Gesamtzahlen[8]]);
Form9.Edit10.text := Format('%f €', [Gesamtzahlen[8]]);
Gesamtzahlen[9] := Gesamtzahlen[4]-Gesamtzahlen[8];
Form9.Edit21.text := floattostr(gesamtzahlen[9]);
Form9.Edit11.text := Format('%f €', [Gesamtzahlen[9]]);
Form9.Edit12.text := Format('%f €', [Gesamtzahlen[12]]);
Form9.Edit13.text := Format('%f €', [Gesamtzahlen[13]]);
Form9.Edit14.text := Format('%f €', [Gesamtzahlen[14]]);
Gesamtzahlen[15] := Gesamtzahlen[12] + Gesamtzahlen[13] + Gesamtzahlen[14];
Form9.Edit15.text := Format('%f €', [Gesamtzahlen[15]]);
Gesamtzahlen[16]:=0;
Form9.Edit16.text := Format('%f €', [Gesamtzahlen[16]]);
Form9.Edit17.text := Format('%f €', [Gesamtzahlen[17]]);
Gesamtzahlen[18] := Gesamtzahlen[16] + Gesamtzahlen[17];
Form9.Edit18.text := Format('%f €', [Gesamtzahlen[18]]);
Gesamtzahlen[19] := Gesamtzahlen[18];
Form9.Edit19.text := Format('%f €', [Gesamtzahlen[19]]);
Gesamtzahlen[20] := Gesamtzahlen[15]-Gesamtzahlen[18];
Form9.Edit22.text := floattostr(gesamtzahlen[20]) ;
Form9.Edit20.text := Format('%f €', [Gesamtzahlen[20]]);
Form10.Edit1.text := Format('%f €', [Gesamtzahlen[21]]);
Form10.Edit2.text := Format('%f €', [Gesamtzahlen[22]]);
Gesamtzahlen[23] := Gesamtzahlen[21] + Gesamtzahlen[22];
Form10.Edit3.text := Format('%f €', [Gesamtzahlen[23]]);
Form10.Edit4.text := Format('%f €', [Gesamtzahlen[24]]);
Form10.Edit5.text := Format('%f €', [Gesamtzahlen[25]]);
Gesamtzahlen[26] := Gesamtzahlen[24] + Gesamtzahlen[25];
Form10.Edit6.text := Format('%f €', [Gesamtzahlen[26]]);
Form10.edit7.text := Format('%f €', [Gesamtzahlen[26]]);
Gesamtzahlen[27] := Gesamtzahlen[23] - Gesamtzahlen[26];
Form10.Edit9.text := floattostr(gesamtzahlen[27]);
Form10.edit8.text := Format('%f €', [Gesamtzahlen[27]]);
Form11.edit1.text := Format('%f €', [Gesamtzahlen[31]]);
Form11.edit2.text := Format('%f €', [Gesamtzahlen[32]]);
Form11.edit3.text := Format('%f €', [Gesamtzahlen[33]]);
Form11.edit4.text := Format('%f €', [Gesamtzahlen[34]]);
Form11.edit5.text := Format('%f €', [Gesamtzahlen[35]]);
Form11.edit6.text := Format('%f €', [Gesamtzahlen[36]]);
Form11.edit7.text := Format('%f €', [Gesamtzahlen[37]]);
Form11.edit8.text := Format('%f €', [Gesamtzahlen[38]]);
Form11.Edit10.text := floattostr(gesamtzahlen[39]);
Form11.edit9.text := Format('%f €', [Gesamtzahlen[39]]);
Form12.edit1.text := Format('%f €', [Gesamtzahlen[41]]);
Form12.edit2.text := Format('%f €', [Gesamtzahlen[42]]);
gesamtzahlen[43] := Gesamtzahlen[41] + Gesamtzahlen[42];
Form12.edit3.text := Format('%f €', [Gesamtzahlen[43]]);
Form12.edit4.text := Format('%f €', [Gesamtzahlen[44]]);
Form12.edit5.text := Format('%f €', [Gesamtzahlen[45]]);
Form12.edit6.text := Format('%f €', [Gesamtzahlen[46]]);
gesamtzahlen[47] := Gesamtzahlen[44] + Gesamtzahlen[45] + Gesamtzahlen[46];
Form12.edit7.text := Format('%f €', [Gesamtzahlen[47]]);
Form12.edit8.text := Format('%f €', [Gesamtzahlen[47]]);
Gesamtzahlen[48] := Gesamtzahlen[43] - Gesamtzahlen[47];
Form12.Edit10.text := floattostr(gesamtzahlen[48]);
Form12.edit9.text := Format('%f €', [Gesamtzahlen[48]]);
Form13.Show;
end;
end;