[taiwan]

всем салам4иг!!!
....кто может подсказать , как или каким образом можно определить , количество записей в *.dbf файле ?
и выводить нужную мне запись....

[NumLock]

Код:

var
  Table1: TTable;

begin
  Table1.RecordCount;
end;

[taiwan]

rayhmet, чет тупанул))),, можно было в Table глянуть

[Assistant]

RecordCount не всегда правильно отображает количество строк, особенно с BDE. Я бы предпочел: SELECT COUNT(*) AS cnt FROM Таблица.

[NumLock]

Сообщение от Assistant

RecordCount не всегда правильно отображает количество строк, особенно с BDE.

поясни! фильтр? не упакованый файл? решаемо...
да и зачем вообще какие-то механизмы доступа к данным применять? вот же:

Код:

function RecordCount(const DBFName: String): Integer;
var
  hfile: THandle;
  data: array [0..7] of Byte;
  dummy: Cardinal;
begin
  Result:=-1;
  hfile:=CreateFile(PChar(DBFName), GENERIC_READ, FILE_SHARE_READ, nil,
    OPEN_EXISTING, 0, 0);
  if hfile<>INVALID_HANDLE_VALUE then
  begin
    if ReadFile(hfile, data, Length(data), dummy, nil) then
      Result:=(data[4] shl 0) or (data[5] shl 8)
        or (data[6] shl 16) or (data[7] shl 24);
    CloseHandle(hfile);
  end; 
end;

[Assistant]

ага )) для новичков всё элементарно и просто