Архив форумов ЦИТФорума

[Anatoliy]

Скажите, почему данный код не выполняется ко всем записям.
Приходиться его выполнять пару раз. За проход делает несколько записей 2-15,20,
а в таблице их более 1000.
Таблица DBF.
for(DM->Tdocum->First(); !DM->Tdocum->Eof; DM->Tdocum->Next())
{ if(!FileExists(DM->Tdocum->FieldByName("pathdoc")->AsString.c_str())) .. { DM->Teclud->Insert();
DM->Teclud->FieldValues["numd"] = DM->Tdocum->FieldValues["numd"];
......................... остальные поля таблицы...................
DM->Teclud->Post();
DM->Tfilcount->Edit();
DM->Tfilcount->FieldValues["counts"] = DM->Tfilcount->FieldValues["counts"]-1;
..............................
DM->Tfilcount->Post();
DM->Tdocum->Delete();
}}
Требуеться: Пройтись по всем записям в таблице "Tdocum" и проверить существует ли файл по
расположению поля "pathdoc", если нет то запись копирую вдругую таблицу "Teclud",
в третьей "Tfilcount" исправляю счетчик и удаляю запись в "Tdocum".
Почему этим способом пошел потому что не понял как через запрос.

[Rus]

Потому что метод Delete() после удаления записи переходит к следующей. Надо сделать альтернативно: либо Delete(), либо Next()

[Anatoliy]

Что посоветуете, или вообще пойти другим путем?

[Борис]

Rus ведь ясно сказал:
for(DM->Tdocum->First(); !DM->Tdocum->Eof; )
{ if(...) {
...
DM->Tdocum->Delete();
} else {
DM->Tdocum->Next();
}}

[Anatoliy]

Я так пробовал, но не работает.

[Борис]

Значит, перед удалением находи следующую запись, запоминай ее, возвращайся на удаляемую и после удаления передвигайся непосредственно на запомненную.

Кстати, для работы с таблицами/базами данных все-таки эффективней работать операциями СУБД.