Hallo zusammen!
Trotz meines Geburtstages heute
(Danke an das DelphipraxisTeam), bin ich schwer am Rödeln...
Ich habe ein mehrdimensionales Array zu füllen, wo ich zuvor aber die Länge nicht kenne.
Bei Bedarf soll ein Feld angehängt werden können.
Irgendwie werde ich aus der Hilfe grad nicht schlau, wie muss ich diesen nun genau definieren
Code:
TempArray : Array of Array of Double;
...
begin
...
FirstRow:=0;
SetLength(DynArr,2); //2 Spalten müssen drin sein, aber mehrere, vorher nicht bekannt wieviele zeilen
begin
for FirstRow := 0 to Obergrenze do
if TempArray[FirstRow,0] = VarA then
begin
TempArray[FirstRow,1] := VarB + VarC;
VarB := VarB + VarC;
end;
if TempArray [FirstRow,0] = 0 then
begin
TempArray[FirstRow,0] := VarA;
TempArray[FirstRow,1] := VarB;
FirstRow := FirstRow + 1;
TempArray[FirstRow,0] := 0;
if TempArray[FirstRow,0] = VarA then Break;
end;
end;
end;
Also zum Code, es soll so ablaufen. Wenn er in die Schleife springt, dann wird an die erste Stelle des Arrays VarA geschrieben. Dann in Folge die Berechnung durchgeführt. Ist bei dem zweiten Durchlauf nun der Wert von VarA gleich dem vorherigen, dann Soll er in der anschließenden Berechnung den Wert von VarB eben um den Batrag von VarC erhöhen.
Erst wenn der Wert von VarA sich verändert, dann soll er eine neue Zeile im Array beginnen und eben dort die Berechnung weiterführen. Kommt nun wieder der Anfangswert von VarA, dann soll er eben bei dem Anfangswert von A (erster Eintrag im Array) weitermachen.
Alles klar? Verständlich erklärt? Wie mache ich nun das mit dem dynamischen Array? Denn ein Feld soll nur hinzugefügt werden, wenn sich eben der Wert von VarA ändert.
LG,
Mada
