Felder von StringGrid addieren

[isofaind2]

Guten Tag zusammen ;)

In einem StringGrid fasse ich Informationen von Käufern zusammen. Die 5te Spalte gibt einen Geldbetrag an. Ich suche jetzt nach einer Funktion, die mir alle Werte der 5ten Spalte addiert, es kann auch vorkommen, dass eine Spalte leer ist, indem Falle soll eine 0 addiert werden.

Hat das schonmal jemand gemacht und kann mir helfen? Wäre super! ;)

mfg isofaind

ps.: Delphi 7 personal

[Kroko1999]

Das wirst du wohl selber proggen müssen!
StrToFloat und StrToFloatDef

[Luckie]

Das ist in fünf Minuten selber geschrieben. Einfach eine Schleife über die betroffenen Zellen der Spalte machen und in der Spalte die Werte aufaddieren.

[isofaind2]

Ich hatte mir das mal so gedacht, aber ich komme nicht weiter

Delphi-Quellcode:

var i, t: integer;
begin
  for i := 2 to Liste.RowCount do
  begin
    t := strtoint(Liste.Cells[4, i]) + strtoint(Liste.Cells[4, i-1])
  end;
  Panel1.Caption := inttostr(t);

Ein weiteres Problem ist, dass nicht alle Zellen einen Integer Wert haben, manche haben auch den den String Wert ''.
Kann mir wer helfen?

isofaind

[Luckie]

Zitat:

Zitat von isofaind2

Ich hatte mir das mal so gedacht, aber ich komme nicht weiter

Und nu solen wir raten, wo du nicht weiterkommst?

Zitat:

Ein weiteres Problem ist, dass nicht alle Zellen einen Integer Wert haben, manche haben auch den den String Wert ''.

Guck vorher, ob etwas in der Zelle drin steht.

[isofaind2]

Ich weiß, dass es vielleicht so klingt als wenn ich wollte, dass ihr mir mein Programm schreibt (bzw Luckie), aber ich sitze an diesem Problem schon seit Anfang der Woche. Ich komme einfach auf keine Lösung, aber habe schon 7 unterschiedliche Ansätze gemacht.
Wenn hier einer schonmal so etwas in seinem Programm benutzt hat, kann er mir helfen wenn er mir diesen Code postet.

Danke schonmal im voraus ;)

Luckie für dich sollte doch sowas kein Problem sein :P

[DeddyH]

Delphi-Quellcode:

var i: integer;
    Summe: double;
begin
  Summe := 0;
  for i := StringGrid.FixedRows to StringGrid.RowCount - 1 do
    Summe := Summe + StrToFloatDef(StringGrid.Cells[4,i],0);
end;

Mal so aus dem Kopf.

[Kroko1999]

Zitat:

Zitat von Kroko1999

Das wirst du wohl selber proggen müssen!
StrToFloat und StrToFloatDef

Ohne Worte!

[Luckie]

Zitat:

Zitat von isofaind2

Ich weiß, dass es vielleicht so klingt als wenn ich wollte, dass ihr mir mein Programm schreibt (bzw Luckie),

Das denke ich nicht. Ich verlange eigentlich nur eine Fehler- oder Poblembeschreibung mit der wir auch was anfangen können.

Zitat:

Luckie für dich sollte doch sowas kein Problem sein :P

Ist es auch nicht, aber was nützt dir das, wenn ich deine Arbeit mache?