Mistři v programování na #hovnokod

Delphi #630

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;

HovnoKod,