Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
9. Jun 2005
Wie ich gestern bereits gesagt habe, du wirst aelter. Jetzt triffst du schon nichtmal den Namen :mrgreen:
@Thomas: Die Funktion musst du natuerlich uebernehmen, und auch die Fehler darin finden und beheben. Ganz so leicht soll es dann doch nicht sein ;)
Greetz
alcaeus
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
9. Jun 2005
Hallo Thomas,
naja, anstatt Summe(A1:A255) zu schreiben wuerdest du bei diesem Beispiel Summe1:=Werte +....
Summe2:=Werte+..... einfach Summe1 := Array_Sum(Werte, 1, 255);
Summe2 := Array_Sum(Werte, 10, 100); schreiben. Die Summe eines Arrays kannst du nur machen, indem du durch das Array gehst, und jedes Element zur Summe hinzuzaehlst. Und damit du die Schleife nicht jedesmal schreiben...
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
9. Jun 2005
Dann schreibs dir doch einfach, z.B. so:
functoin Array_Sum(cost aArray: array of Integer; aStart, aEnd: Integer): Intger;
begin
Result := 0
for i := aStart to aEnd do
Result := Result + aArray;
end;
Greetz
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
8. Jun 2005
Hallo Thomas,
lauf mit einer Schleife durch das Array und zaehle alle Felder zusammen:
Sum := 0;
for i := Low(ar) to High(ar) do
Sum := Sum+ar;
Greetz
alcaeus