Удаленные записи в DBF

← →
Евгений Р. (2008-03-20 14:44) [0]

Как определиить количество удаленных записей в DBF таблице через BDE?

← →
www (2008-03-20 14:49) [1]

узнать колво неудаленных
узнать размер записи
простыми арифметическими операциями с размером файла

← →
Евгений Р. (2008-03-20 15:18) [2]

> узнать размер записи
> простыми арифметическими операциями с размером файла

конечно, но наверное есть что-то поизящнее. Ведь можн просматривать неудаленные+удаленные? Как???

← →
Anatoly Podgoretsky © (2008-03-20 21:06) [3]

> Евгений Р. (20.03.2008 14:44:00) [0]

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

← →
abhtr (2008-03-24 10:57) [4]

Прошу прощения у мастеров, но я использовал для DBF таблиц следующую "конструкцию":
function DELETED(Table:TTable): Boolean;
var
Prop : RECProps;
begin
dbiGetRecord(Table.Handle, dbiNoLock, nil, @Prop);
Result := Prop.bDeleteFlag;
END;

а затем:
if Deleted(tblDBF) Then ... делаешь, что надо.

← →
Евгений Р. (2008-03-24 21:28) [5]

Спасибо, abhtr
думаю это то, что мне надо

← →
Евгений Р. (2008-03-24 23:05) [6]

Самое простое: в Dbf файле по смещению 4 хранится количество записей в файле (общее, в т.ч. и удаленных). А дальше - арифметика.

← →
Виталий Панасенко(дом) (2008-03-24 23:38) [7]

Пример из Rx для просмотра удаленных записей в DBF-нике. Правда, не заню, будет ли отличаться RecordCount... Если да, то включил, запомнил, выключил, разность
procedure DataSetShowDeleted(DataSet: TBDEDataSet; Show: Boolean);
begin
with DataSet do begin
CheckBrowseMode;
Check(DbiValidateProp(hDBIObj(Handle), curSOFTDELETEON, True));
DisableControls;
try
Check(DbiSetProp(hDBIObj(Handle), curSOFTDELETEON, Ord(Show)));
finally
EnableControls;
end;
if DataSet is TTable then TTable(DataSet).Refresh
else begin
CursorPosChanged;
First;
end;
end;
end;

← →
Виталий Панасенко(дом) (2008-03-24 23:50) [8]

Различаются.. так что....

Удаленные записи в DBF Найти похожие ветки