ADOTable Summe

[blondervolker]

Hallo,

hab eine ADOTable1 mit einen Eingabefeld KA_SUMME.Ich bin zu blond um eine Endsumme aller Datensätze
untereinander in einen einfachen Editfeld(Edit1) anzuzeigen. Kann mir jemand helfen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
var
for i := 1 to zahl1 do
KA_SUMME: Double;
begin
                     
ADOTable1.KA_SUMME
KA_Summe := KA_Summe + i;
end;