- 01
 - 02
 - 03
 - 04
 - 05
 - 06
 - 07
 - 08
 - 09
 - 10
 - 11
 - 12
 - 13
 - 14
 
function TDM.RecCount(DSet: TDataSet): integer;
begin
 Result := 0;
 with DSet do
  if Active then
   begin
     First;
     while not EOF do
      begin
       Inc(Result);
       Next;
     end;
 end;
end;
                                    
 Follow us!