Zitat von
DJ-SPM:
achso, habe ich vergessen zu sagen. Links daneben ist noch ein Memo-Feld, dass die nur die Beträge einliest (ohne Datum)
Sorry, mein Fehler
Genau dieses Memo kann man sich sparen:
Stell dir einen Array of Array of Extended wie eine Tabelle vor;
0 1 2
1 ...
2 ..
3 ...
0-3: Erste Dimension, 0-2 Zweite.. Ist eine Zuordnung!
Delphi-Quellcode:
...
var Ergebnis : Array of Extended; // Die Endergebnisse
Summen : Array of Array of Extended; //2 Dimensionaler Array für die Einzelnen Zahlen
a : integer;
setlength(Ergebnis,ANZAHL DER DATENSÄTZE); // Array in den Speicher geben
for a := 0 to ANZAHL DER DATENSÄTZE do // Array in den Speicher geben
setlength(Summen, a, ZAHL DER JEWEILIGEN SUMMANDEN);
.
.
.
Procedure Button5Click(Sender);
var i : integer;
begin
for i := 0 to high(Summen[5]) do // 0-der Anzahl der Summanden (oben)
Ergebnis[5] := Ergebnis[5] + Summen[5,i]; // Addition
end;