DBFelder addieren

[Privateer3000]

Hiho,

in eine dbf-tabelle befinden sich in einer Spalte Fliesskommazahlen.
Diese würde ich gerne als Summe in ein Edit od. LAbel anzeigen.
Wie rechnet man diese Felder zusammen?

[xbu58]

Hallo Privateer3000

Du kannst ein SQL-Statement schreiben, welches die Summe bildet.
z.B.

Code:

SELECT Summe=SUM(Fld) FROM "Table.dbf"

Um das auszuführen übergist Du das einem TQuery-Objekt und setzt dieses auf Active := true. Im Resultset hast Du dann einen Datensatz, welcher die Summe enthält.

Gruss
Xaver

[Privateer3000]

Da ich damit noch nie etwas zu tun hatte, kann ich mit Deiner Antwort nicht viel anfangen. Trotzdem Danke :)

[MrSpock]

Hallo Privateer3000,

xbu25 hat den einfachsten Weg bereits vorgeschlagen. Wenn du aber mit TQuery nicht zu tun haben willst, gibt es auch den "manuellen Weg":

Delphi-Quellcode:

summe := 0.0;
try
  { Aktualisierung der Oberfläche ausschalten}
  Table1.DisableControls;
  Table1.First;
  while Not Table1.EOF do
  begin
    summe := summe +Table1.FieldByName('dasFloatFeld').AsFloat;
    Table1.Next
  end;
finally
  Table1.EnableControls;
end;

Edit1.Text := Format('%8.2f', [summe]);