Найти свободные строки Delphi 7

[detalik]

Здравствуйте, есть БД в, подключенная через ADO, в ней есть поле со списком ip, как вывести список свободных ip адресов. может через sql?
Вот сама программаhttp://turbobit.net/323v1ah29gw5.html

[OlegVE]

Здравствуйте
А поиск устроить, слабо...
Например для начала можно найти
http://programmersforum.ru/showthread.php?t=150931
До свидания

[detalik]

Здравствуйте, тот пост, на который Вы мне дали ссылку, я уже смотрел, но почему то, не получается, собственно по этой причине я решил задать вопрос. Вернее при выполнении процедуры совсем ничего не происходит

var
  MyList: TStringList;
  Index: Integer;
begin
  MyList := TStringList.Create;

// Здесь сами генерируйте список

  MyList.Sort;   { Find will only work on sorted lists! }

  ADOQuery1.Active:=false;
  ADOQuery1.SQL.Text := 'select ИмяПоляСIPАдресом from refbook Where IP>'+ quotedstr(MaskEdit1.Text) + ' AND IP<'+ quotedstr(MaskEdit2.Text);
  ADOQuery1.Active:=true;

  ADOQuery1.First;
  while not ADOQuery1.Eof do begin
   if MyList.Find(ADOQuery1.FieldByName('ИмяПоляСIPАдресом').AsString, Index) then MyList.Delete(Index);
   ADOQuery1.Next;
  end;

// Не забудьте предварительно сохранить куда-нибудь список, прежде чем отправить его в никуда

  MyList.Free;
end;

// Не забудьте предварительно сохранить куда-нибудь список, прежде чем отправить его в никуда

Может из-за этого? А куда его предварительно сохранить? И почему он не выводится в DBGrid?
Спасибо.
P.S программа с использованием вышеописанной процедуры http://hostfiles.ifolder.ru/23725036

[Serge_Bliznykov]

но почему то, не получается

не получается - ЧТО?!
и как именно не получается? пустая выборка, ошибка при определении наличия адреса или что?

p.s. а почему не продолжить обсуждение в той же ветке? перенести туда Ваши сообщения?

[evg_m]

MyList := TStringList.Create;

// Здесь сами генерируйте список

MyList.Sort; { Find will only work on sorted lists! }

ЧИТАЙТЕ выделенное

// Не забудьте предварительно сохранить куда-нибудь список, прежде чем отправить его в никуда

Memo1.lines:=MyList;

или

Memo1.Text:=MyList.Text;

или другие варианты

[detalik]

Попробовал сохранить в Memo - не выводит ничего, или может быть выводит - пустой результат. Или я чего то неправильно делаю..

procedure TForm1.N4Click(Sender: TObject);
 var
 MyList: TStringList;
  Index: Integer;
begin
    MyList := TStringList.Create;
    Memo1.Text:=MyList.Text;
    MyList.Sort;    //Find will only work on sorted lists!

  ADOQuery1.Active:=false;
  ADOQuery1.SQL.Text := 'select [ip àäðåñ] from buh Where [ip àäðåñ] >'+ quotedstr(Edit1.Text) + ' AND [ip àäðåñ]<'+ quotedstr(Edit4.Text);
  ADOQuery1.Active:=true;

  ADOQuery1.First;
  while not ADOQuery1.Eof do begin
   if MyList.Find(ADOQuery1.FieldByName('ip àäðåñ').AsString, Index) then MyList.Delete(Index);
   ADOQuery1.Next;
  end;

// Íå çàáóäüòå ïðåäâàðèòåëüíî ñîõðàíèòü êóäà-íèáóäü ñïèñîê, ïðåæäå ÷åì îòïðàâèòü åãî â íèêóäà

  MyList.Free;

end;

end.

Спасибо.

[evg_m]

// Здесь сами генерируйте список

Если списка нет (пустой) то: из пустого удалить нечто получится пустой.

[Serge_Bliznykov]

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

Если списка нет (пустой) то: из пустого удалить нечто получится пустой.

+1



detalik

когда Вы создаёте  MyList := TStringList.Create; - он создаётся, разумеется, ПУСТОЙ! (т.е. в нём нет ни одной записи!)

 Memo1.Text:=MyList.Text; - присваиваете Memo пустой список, Memo1 становится таким же пустым.

    MyList.Sort;    Сортируете пустой список. От этого он не перестаёт быть пустым!
....
   if MyList.Find(...) - ищете в пустом списке. И, разумеется, НИЧЕГО не находите!!

я уже не говорю о том, что результаты обработки MyList Вы никуда не присваиваете! (т.е. даже если бы он был не пустой, то Memo1.Text:=MyList.Text; надо делать в конце процедуры!)

[detalik]

Спасибо, примерно понял, буду пробовать.

Подскажите, пожалуйста, как мне создать непустой список в диапазоне 192.168.110.10 - 192.168.110.255. Спасибо.

[evg_m]

примерно так

for n1:=192 to 192 do
for n2:=168 to 168 do
for n3:=110 to 110 do
for n4:=0 to 255 do
s:=format('%d.%d.%d.%d',[n1,n2,n3,n4]);