[Vit]

Доброго времени...
Возникла проблема:
есть две формы - на одной ListBox
на другой Edit
Нужно запись из Edit записать в ListBox с проверкой
чтобы не было повторяющихся записей.
Вот код который нормально компилируется, но при выполнении
команды записи дает ошибку:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm2.ToolButton2Click(Sender: TObject); var   s:string; begin s:= Edit1.Text;   if pos(s+#$0D#$0A,Form5.ListBox1.Items.Text)>0 then      ShowMessage('Запись существует!')   else begin Form5.ListBox1.Items.Append(s); end; end;

Admin: Используем теги при оформлении кода, иначе пследуют санкции.

Подскажите пожалуйста, что не правильно?

[san-46]

А какая ошибка?
Проверил код (один к одному) - никакой ошибки нет: текст из Edit добавляется, если текст находится в ListBox'е, то вываливается сообщение.
Непонятно, что там у вас за ошибка.

[Vit]

Спасибо, уже разобрался. Система глючит.