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() :)

[Mysterio08]

Zitat:

Zitat von mkinzler

Z.B. im KeyDown- oder KeyPress-Event

Also ich hab das jetzt mal versucht, schaffe es aber nicht. Folgendes habe ich geschrieben:

Delphi-Quellcode:

procedure TForm1.StringGridKeyPress(Sender: TObject; var Key: Char);
var
  i: Byte;
begin
  for i := 1 to Max do //Max = 12
    begin
      StringGrid.Cells[2,i] := Chr(27)  //Chr27 ist die ESC-Tase
    end;
end;

So habe ich es immer bei Edit-Felder gemacht, wenn ich nicht wollte, dass der Nutzer z.B. ein Ergebnis manipulieren kann (ich weiß, ein Label bietet sich zur Ausgabe eher an, aber in der Schule werden wir "gezwungen" ein Edit-Feld zu nehmen).
Jetzt ist das Problem, dass ich in den Felder 1 bis 12 soche Vierecke habe (ich hoffe ihr wisst, was ich damit meine).
Könnt ihr mir einen anderen Lösungsweg nennen, denn ich weiß nicht weiter!

[jaenicke]

Zitat:

Zitat von Mysterio08

Jetzt ist das Problem, dass ich in den Felder 1 bis 12 soche Vierecke habe (ich hoffe ihr wisst, was ich damit meine).

Du schreibst ja auch das Zeichen Escape, Chr(27) nämlich, in das StringGrid.
Was erwartest du denn anderes als dass das Zeichen dann dort angezeigt wird? Da es kein normales Zeichen ist, sieht man eben nur solch ein Ersatzzeichen. :cyclops:

[Namenloser]

Zitat:

Zitat von Mysterio08

Zitat:

Zitat von mkinzler

Z.B. im KeyDown- oder KeyPress-Event

Also ich hab das jetzt mal versucht, schaffe es aber nicht. Folgendes habe ich geschrieben:

Delphi-Quellcode:

procedure TForm1.StringGridKeyPress(Sender: TObject; var Key: Char);
var
  i: Byte;
begin
  for i := 1 to Max do //Max = 12
    begin
      StringGrid.Cells[2,i] := Chr(27)  //Chr27 ist die ESC-Tase
    end;
end;

So habe ich es immer bei Edit-Felder gemacht, wenn ich nicht wollte, dass der Nutzer z.B. ein Ergebnis manipulieren kann (ich weiß, ein Label bietet sich zur Ausgabe eher an, aber in der Schule werden wir "gezwungen" ein Edit-Feld zu nehmen).
Jetzt ist das Problem, dass ich in den Felder 1 bis 12 soche Vierecke habe (ich hoffe ihr wisst, was ich damit meine).
Könnt ihr mir einen anderen Lösungsweg nennen, denn ich weiß nicht weiter!

Delphi-Quellcode:

StringGrid.Options := StringGrid.Options - [goEditing]

Oder im Objektinspektor einstellen.

Btw: Bei Edits würde ich nicht unbedingt Chr(27) nehmen, sondern #0.