Работает только по первому добавлению в список, а потом работает не правильно. О задаче: Есть пустой список, добавляю туда из Грида, а после если добавляется уже существующее в списке, то выводится сообщение о добавлении.
Код:
procedure Tform_books.Button4Click(Sender: TObject);
var i:integer;
begin
listbox1.Items.Add(adoquery1.fieldbyname('Название_книги').AsString);
if listbox1.Items.Count<>0 then
for i:=1 to listbox1.Items.Count-1 do
if listbox1.Items.Strings[i]=listbox1.Items.strings[i]
then
begin
if MessageDlg('Вы действительно хотите добавить существующую книгу?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
begin
break;
end
else
begin
listbox1.Items.Delete(i);
end;
end;
end;