Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
toplam: double;
begin
toplam:=0;
Dataset.First;
WHILE NOT Dataset.Eof DO
Begin
toplam:=TOPLAM+DatasetGENEL_TOPLAM_GIRIS.Value;
Dataset.Next;
End;
Edit1.text:=FloatToStr(toplam);
end;