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

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

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