- 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;
guest 15.05.2009 11:50 # 0
В Delphi 1, кстати, RecordCount не было, вроде.
guest 16.05.2009 16:31 # 0
Это универсальный метод получить к-во записей который работает всегда, со всеми базами... другова такова нема :)