Fiyat alanını toplayacak derken?.. Yani tablodaki tüm kayıtlara ait fiyat alanının toplamını mı yazmak istiyorsun? diyelim ki tabloda 5 kayıt var ve label a bu 5 kayıdın fiyat alaının toplamını mı yazacaksın? belli etmemişsin. Ama anladığım doğruysa sana kendim için daha önceleri yazmış olduğum ve TBookMarkStr sınıfının kullanımına da basit bir örnek teşkil edecek function ı ekliyorum umarım işine yarar.

Function aşağıdaki gibi.

function ColSumm(var Table: TTable; FieldName: string): Longint;
var
  BookMarkStr: TBookmarkStr;
  ColumnTotal: Longint;
begin
  ColumnTotal := 0;
  if not Table.Active then exit;
  with Table do
    if RecordCount > 0 then
    begin
      First;
      BookMarkStr := Bookmark;
      DisableControls;
      while not EOF do
      begin
        ColumnTotal := ColumnTotal + FieldByName(FieldName).AsInteger;
        Next;
      end;
      EnableControls;
      Bookmark := BookMarkStr;
    end;
  Result := ColumnTotal;
end;

Bu function ı ilgili formda public olarak da tanımlayabilirsin. Kullanımına gelince benim kullanımım Integer tipli alanlar içindi ama sen ne tip bir alan için kullanacaksın bilmiyorum diyelim ki parasal yada kayan noktalı tip bir alanı toplayacaksın o zaman functiondan dönen değerin tipini, ColumnTotal local değişkenin değer tipini ve 16. satırdaki AsInteger atamasını kullanacağın alanın taşıdığı veri tipine göre modifiye etmelisin. Bu modification dan sonra örneğin ilgili TTable nesenesinin AfterPost olay işleyicisinde ve ilgili formun OnShow olay işleyicisinde aşağıdaki gibi bir tanımlama yaparsan işini görür sanıyorum.

  Label1.Caption := IntToStr(ColSumm(Table1, 'FIYAT'));


tşkler çokk sağolun...

var 
giderytl:integer; 
begin 
 giderytl:=0; 
 IBDataSet1.First; 
 WhilenotIBDataSet1.eof Do 
 begin 
  giderytl:=giderytl+IBDataSet1GIDER_YTL.AsInteger;//Bu alan parasal alan olacak. 
  IBDataSet1.Next; 
 end; 
  Label1.Caption:=Floattostr(giderytl); 
 end; 
------------------
bu örnekte nota yada virgüllü olanı hesaplamıyor
örneğin alanlarda olan 0,4+0,5+0,2 gibi olanaları...bunları nasıl toplatırız acil yardım

query kullandığını varsayarsak ...



with query do
begin
close;
sql.clear;
sql.add('Select  SUM(TOPLANCAKALAN) From TABLON as SONUC');
OPEN;
end;

label1.caption := floattostr(query.fieldbyname('SONUC').asfloat;


alternatifler çoğalsın istedim ..

emeğinize sağlık arkadaşlar