[Vit]

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

Код:

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]

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