[/align]
[align=center] procedure TForm1.Button1Click(Sender: TObject);
var Majmou3: Currency;
RecordPlace: TBookmark ;
begin
(* Majmoo3 *)
RecordPlace := table1.GetBookmark;
Majmou3:=0;
table1.Active:=true;
table1.First;
while not table1.Eof Do
begin
Majmou3:= Majmou3+table1.FieldByName('Qut').AsCurrency;
table1.Next;
end;
edit1.text:=CurrToStr(Majmou3);
end;
end. [/align]
[align=center]var
majmou3 : real ;
begin
(* Majmoo3 *)
Majmou3:=0;
abstable3.Active:=true;
abstable3.First;
while not abstable3.Eof Do
begin
Majmou3:= Majmou3+abstable3.FieldValues ['qnt'];
abstable3.Next;
end;
edit6.text:=CurrToStr(Majmou3);
end;