Форум: "Базы";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
ВнизMIDAS Удаление записи Найти похожие ветки
← →
Sparky (2002-02-13 13:25) [4]Нет
B DB.PAS
// Вот тут стопится
procedure TDataSet.Delete;
begin
CheckActive;
if State in [dsInsert, dsSetKey] then Cancel else
begin
if FRecordCount = 0 then DatabaseError(SDataSetEmpty, Self);
DataEvent(deCheckBrowseMode, 0);
DoBeforeDelete;
DoBeforeScroll;
CheckOperation(InternalDelete, FOnDeleteError);
FreeFieldBuffers;
SetState(dsBrowse);
Resync([]);
DoAfterDelete;
DoAfterScroll;
end;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c