Problem mit Stringgrid Tabelle

[kronos89]

Also, ich habe eine Stringgridtabelle, in der eine Spalte Zahlen stehen. Die Zahlen sollen addiert werden und die Geamtzahl in einer Zelle ausgegeben werden.
Außerdem soll in der benachbarten Spalte, sozusagen jeweils neben die Zahlen ihr Prozentualer Anteil, zur Gesamten Zahl ausgegeben werden.

z.B.:
1. Spalte.../.....2. Spalte
1......../.......10%
2......../.......20%
4......../.......40%
2......../.......20%
1......../.......10%


Gesamt: 10

[mkinzler]

Und was ist dann unklar? Mit der Eigensdchaft .Cells kannst du auf die Werte zugreifen.

[kronos89]

Das Problem ist, dass ich nicht so mit Delphi bewandert bin. In der Schule bekommen wir solche Aufgaben, ohne viel Erklärung und nu mach mal.
Ich brauch irgentwie eine Schleife für die Addition.
Bei den Prozenten hab ich kein Plan, wie ich das machen soll.

[mkinzler]

Die Anzahl der Zeilen kriegst du über .Rows.Count raus. Und das mit den Prozenten ist ja kein Delphiproblem sondern eine Matheproblem.

[grenzgaenger]

auch mit .rowcount ...

für die schleifen empfiehlt sich dann meist FOR ... :-)

[kronos89]

Wäre schön, wenn ihr mir wenigstens die Schleife mal aufschreibt, mit der man die Zahlen einer Spate addiert, sonst komm ich ja mit den Prozenten auch nicht weiter.

Dachte mir das ungefähr so:

Delphi-Quellcode:

var
 Gesamt:real; a:integer;
begin
 for Stringgrid1.cells[1,a] do 
 //Ja, nu weiß ich nicht, wie er zählen soll

 Gesamt:=floattostr(Stringgrid1.cells[1,28]) //Ergebnis eintragen
end;

[guidok]

In der Delphi-Hilfe steht zum Syntax der for-schleife:

Zitat:

for Zähler := Anfangswert to Endwert do Anweisung

In deinem Fall also:

Delphi-Quellcode:

for AktuelleZeile:=ErsteZeileImGrid to LetzteZeileImGrid do
begin
  //Hier kannst du nun rechnen und in
  Grid.Cells[1,AktuelleZeile] //steht der Inhalt der Zelle (als String, wohlgemerkt!)
end;

Und zur Summe:

Du möchtest eine Gesamtsumme errechnen, d.h. am Anfang ist der Wert von Summe gleich 0 und in jedem Schleifendurchlauf addierst du zur aktuellen Summe den Wert der aktuellen Zelle. So einfach ist das.

[kronos89]

Wenn mans ist es einfach. Naja, dass ist doch schon was. Danke! :-D
Wenn einer das andere noch weiß, wär ich dankbar.

[stifflersmom]

Zitat:

Zitat von kronos89

Wenn mans ist es einfach. Naja, dass ist doch schon was. Danke! :-D
Wenn einer das andere noch weiß, wär ich dankbar.

Ich glaube, das wissen hier ganz viele.
Aber, glaubst Du nicht, es wäre besser Du versuchst mit dem Ansatz von guidok Dein Problem selber zu lösen.

Moin

[guidok]

Zitat:

Wenn einer das andere noch weiß, wär ich dankbar.

Zitat:

4......../.......40%

Gesamt: 10

Du weisst nicht, dass 4 bei einer Gesamtsumme von 10 40% entspricht, bzw. wie man das ausrechnet?

Auf welche Schule gehst du eigentlich?

[kronos89]

Klar weiß ich das. Wie ich es auch geschrieben hab, sind das Beispielzahlen.
Ich weiß auch, wie Prozentrechnung geht.
Nu hab ich viele Zahlen in der Tabelle und Gesamtzahl.
Nu müsste ich für jede Zeile das so schreiben:

Delphi-Quellcode:

Stringgrid1.cells[2,1]:=floattostr (Stringgrid1.cells[1,1]/Gesamt*'100')

Und das dann Zeile für Zeile.
Oder weiß einer, wie ich das mit ner For-Schleife hinkriegen?

[DeddyH]

Zitat:

Zitat von kronos89

Oder weiß einer, wie ich das mit ner For-Schleife hinkriegen?

Na, genauso, wie Du auch die Gesamtsumme ermittelst, nur eine Spalte weiter.

[Deep-Sea]

Zitat:

Zitat von kronos89

Oder weiß einer, wie ich das mit ner For-Schleife hinkriegen?

Jetzt mal ohne das ich mir die anderen Posts alle so sehr genau durchgelesen habe, aber was ich an einer For-Schleife jetzt so kompliziert?

[HLukas]

(1) FloadToStr() erwartet einen Gleitkommawert, in den SG-Zellen stehen aber String-Werte,
also muss zum Rechnen in Gleitkommazahl umgewandelt werden.
(2) Als Fachinformatiker sollte man bei Prozentwerten wie in diesem Fall einen Fehlerausgleich einbauen. Das am besten beim grössten Wert weil dort der Fehler am kleinsten ist.