1. Pascal / Говнокод #1038

    +152

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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, 14 Мая 2009

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

    • ava guest 15.05.2009 11:50 # 0

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

    • ava guest 16.05.2009 16:31 # 0

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

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