- 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;