Thema: Delphi DBFelder addieren

Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#4

Re: DBFelder addieren

  Alt 10. Aug 2003, 20:13
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]);
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat