[Vit]

Подскажите, как не допустить записи в ComboBox Intems одинаковых строк.

[Aristarh Dark]

Код:

var
  s:string //это твоя добавляемая строка
begin
  {Some code}
  if pos(s,ComboBox.Items.Text)>0 then
     ShowMessage('Попытались записать строку повторно!')
  else
    ComboBox.Items.Append(s);
  {Some code}
end;

[Vit]

Огромное спасибо, все работает!

[AlexSku]

Это неправильно работает для подстрок.
Например, введём текст "kuku".
Затем захотим ввести "ku" - не получится, а ведь такой строки нет.

[Aristarh Dark]

Сказать что работает не правильно это полдела, ты бы предложил решение и тогда говорил.
На самом деле решается довольно просто, совсем небольшим изменением кода:

Код:

var
  s:string //это твоя добавляемая строка
begin
  {Some code}
  if pos(s+#$0D#$0A,ComboBox.Items.Text)>0 then
     ShowMessage('Попытались записать строку повторно!')
  else
    ComboBox.Items.Append(s);
  {Some code}
end;

вот так не будет цеплять подстроки, возможно следует учесть еще и начальные/конечные пробелы, регистр букв и прочее (типа знаки препинания )

[AlexSku]

Не сердись, друг. Я не хотел тебя обидеть. Просто я ленивый программист, неохота что-то лишнее писать. А бывает, что ошибки бросаются в глаза и надо предупреждать пользователя (как ты в конце и сделал)