Школоло / Говнокод #1038 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 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;

Код коллеги
DataSet.RecordCount не рулит...

Запостил: guest guest, (Updated )

Комментарии (2) RSS

  • ava guest # Ссылка на оригинал 0

    terier:
    В Delphi 1, кстати, RecordCount не было, вроде.
    Ответить

  • ava guest # Ссылка на оригинал 0

    Maniack:
    Это универсальный метод получить к-во записей который работает всегда, со всеми базами... другова такова нема 🙂
    Ответить

Добавить комментарий

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓