Anlaşıldı..Ozaman Sorumu Kod üzerinde ............

[Turki]

Kod: Tümünü seç

function AlanKayitSayisi(table1:TTable;TERM1:string):integer;
var
 a:integer;
begin
 a:=0;
 table1.first;
 repeat
 begin
  if trim(table1.fieldList.fieldbyname(TERM1).text)<>'' then a:=a+1;
    table1.next;
end;

until table1.eof
end;

[list]Yukarıdaki Kod Çalışıyor fakat Label 'e Bir türlü aktaramadım....(Form açılınca Label de sürekli gözüksün..)  
Formun Active olayına:
Label1.Caption:=AlanKayitSayisi(StrToFloat(TERM1));//Bu şekilde deniyorum Kod da mı bir yanlışlık var
Geçmiyor. Veya Başka nasıl bir çözüm olabilir.
[/list]

[gkimirti]

bu mesaj baska bir mesajın devamı mı?
bu sorudan hicbir sey anlasılmıyor, lutfen forum kurallarını bir defa daha okuyun.