Mit Arrays rechnen

[Mysterio08]

Guten Tag,
folgende Situation:
Ich möchte, dass man in ein StringGrid Umsätze von einem ganzen Jahr eingeben kann (Januar, Februar...bis Dezember). Dafür habe ich folgende Zeilen geschrieben:

Delphi-Quellcode:

procedure TForm1.Button_BerechnenClick(Sender: TObject);
var
  Umsatz: Array [1..12] of Single;
begin
  for i := 1 to 12 do
    Umsatz[i] := StrToFloat (StringGrid1.Cells[1,i]);
end

Nun möchte ich, dass der Jahresumsatz errechnet wird. Klar, ich könnte mir das ganze viel einfacher machen und direkt mit den StringGrid-Zellen rechnen, das möchte ich aber nicht.
Wenn ich dann alle Umsätze zugewiesen habe-wie rechne ich dann?

Delphi-Quellcode:

Gesamtumsatz := Umsatz[1] + Umsatz[2]..... + Umsatz[12]

Ich glaube da, würde ich mich dumm und dämlich schreiben, und es soll ja Fälle geben, in denen vielleicht tausende Arrays zusammengerechnet werden, ich habe schon bei Delphi-Treff.de geschaut, aber da habe ich nichts Brauchbares gefunden.
Danke schonmal im Vorraus.
mfg. Mysterio08

[jaenicke]

Wie wäre es so? ;-)

Delphi-Quellcode:

var
  MySum: Double;
  i: Integer;
begin
  MySum := 0;
  for i := Low(Umsatz) to High(Umsatz) do 
    MySum := MySum + Umsatz[i]

// EDIT:
Und mit SetLength und dynamischen Arrays wärst du wohl auch besser bedient.

[Mysterio08]

Nur ich habe mich weder mit dynamischen Arrays beschäftigt, noch mit SetLength. Ich weiß nur, dass man damit Positionen von Strings herausfinden kann, aber das man das auch zum Rechnen nehmen kann, habe ich nicht gewusst.
Könntest du mir das vielleicht mal so posten, würde mich mal interessieren.

[himitsu]

Zitat:

Zitat von Mysterio08

Nur ich habe mich weder mit dynamischen Arrays beschäftigt, noch mit SetLength. Ich weiß nur, dass man damit Positionen von Strings herausfinden kann, aber das man das auch zum Rechnen nehmen kann, habe ich nicht gewusst.

mit SetLength kann man die Position eines Strings finden? :shock:
ließ am Besten nochmal in deiner Delphi-Hilfe nach, was das wirklich macht.

[Mysterio08]

OMG, na klar, du hast Recht. Ich habe SetLength mit Length verwechselt.....
Aber ich habe noch eine andere Möglichkeit - eine wie ich finde eine viel einfachere - gefunden:

Delphi-Quellcode:

  for i := 1 to 12 do
    Gesamtumsatz := Gesamtumsatz + Umsatz[i]

Nur eine Sache ist jetzt noch offen: In meinem StringGrid soll der Nutzer die Umsätze direkt eingeben - die Eigenschaft goEditing in den Options habe ich auf True gesetzt. Nur kann der Nutzer nun auch Zahlen in den prozentualen Anteilen "verfälschen", das gefällt mir gar nicht.
Gibt es die Möglichkeit, nur einzelne Zellen anzusprechen und nicht gleich das ganze StringGrid?

[mkinzler]

Einfach die Eingabe überwachen.

[Mysterio08]

Zitat:

Zitat von mkinzler

Einfach die Eingabe überwachen.

Und wie genau kann ich das machen?

[mkinzler]

Z.B. im KeyDown- oder KeyPress-Event

[jaenicke]

Zitat:

Zitat von Mysterio08

Aber ich habe noch eine andere Möglichkeit - eine wie ich finde eine viel einfachere - gefunden:

Delphi-Quellcode:

  for i := 1 to 12 do
    Gesamtumsatz := Gesamtumsatz + Umsatz[i]

Genau das habe ich doch geschrieben, um aber nicht bei einer Änderung der Anzahl von Werten im Array überall das 1 to 12 ändern zu müssen, solltest du die saubere Variante benutzen, die ich geschrieben habe. Die schaut ja automatisch wie groß das Array ist, ist also deutlich einfacher.

[DeddyH]

Oder man nimmt gleich math.Sum() :)