перезапись в бд

[hunter03]

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

В БД есть поля (Name ACTIVE, NUMBER)
Условие таково, если Name='disconect' то присваиваем полю ACTIVE='0' и NUMBER='-'
Далее в цикле нужно проверить ВСЮ базу, если ACTIVE<>'0' то полю NUMBER присвоить значение переменной цикла, а если ACTIVE='0', то просто ничего не писать

я делаю таким образом:

while not  Table1.Eof do begin
if  (Table1.FieldByName('name').Value='disconect')
        then begin

       Table1.Edit;
       Table1.FieldByName('Active').Value:='0';
       Table1.FieldByName('number').Value:='-';
       Table1.Post;
      Break;
    end
    else begin
    Table1.Next;
   end;  end;

Table1.First; ii:=0;
  while not  Table1.Eof do begin
if (Table1.FieldByName('Active').Value='0') then Table1.Next
else begin
  Table1.Next;
  Table1.Edit;
  Table1.FieldByName('number').Value:=IntToStr(ii);
  Table1.Post;
  Table1.Next; ii:=ii+1;
 end;  Table1.Next;
   end;

Все работает впринципе корректно, за исключением одного случая: если в базе осталось одно поле Active не нулевое и я его обнуляю, то значение полей не перезаписуется

Помогите пожалуйста одолеть неувязку. Кстати решение должно быть обязательно реляционным, без SQL

[Stilet]

без SQL

Почему?

должно быть обязательно реляционным

Сам то понял что сказал? Реляция - это связка одного объекта с другим. Какое отношение к связкам имеет циклический проход по таблице?

Я бы все это переписал так:

ii:=0;
while not  Table1.Eof do begin inc(ii);
Table1.Edit;
if  (Table1.FieldByName('name').Value='disconect')       then begin
       Table1.FieldByName('Active').Value:='0';
       Table1.FieldByName('number').Value:='-';
    end else begin
     if (Table1.FieldByName('Active').Value<>'0') then
      Table1.FieldByName('number').Value:=IntToStr(ii);
    end;
    Table1.Next;
   end;  
Table1.Post;

[hunter03]

по условию сказали сделать навигационным методом( перепутал, глупость сказал"реляционным методом")
кстати получилось, спасибо большое! )))