Сравнение строк, добавление если false

[Des]

Здравствуйте! Столкнулся со следующей задачей.
Имеется строка edit_adress (Edit) которую нужно добавить в memo_ban (TMemo) при условии что в мемо еще нет этой строки. Пробывал реализовать следующим путем (см. код) и конечно ничего не вышло

for  i:=0 to form_ban.memo_ban.Lines.Count do
    if Form1.edit_adress.Text <> form_ban.memo_ban.Lines.Strings[i] then begin
    form_ban.memo_ban.Lines.Add(Form1.edit_adress.Text);
    end;

[Баламут]

Правда с некоторыми оговорками можно вот так попробовать

if Pos(Edit1.Text, Memo1.Text) = 0 then Memo1.Lines.Add(Edit1.Text);

[Des]

Сообщение от Баламут

Правда с некоторыми оговорками можно вот так попробовать

if Pos(Edit1.Text, Memo1.Text) = 0 then Memo1.Lines.Add(Edit1.Text);

Оговорка я так понимаю в кол-ве строк? У меня их будет свыше 200 000

ОК. В общем как я понимаю основная и наверное лучшая идея это поиск. Если так то с этим я разберусь, по ним у меня курсовая была

[Баламут]

Нет, количество строк здесь совершенно ни при чем. "Оговорка" касается ситуации, когда текст из Эдита является частью произвольной строки из мемо

[Stilet]

при условии что в мемо еще нет этой строки. Пробывал реализовать следующим путем (см. код) и конечно ничего не вышло

Во-первых: Смени подпись.
Во-вторых: Можно воспользоваться свойством TStringList.Duplicates для отсечения дубликатов, для этого нужно добавлять из Эдита в переменку этого типа, и ловить исключение EStringListError. которое укажет о том что такое в списке уже есть.

[Altera]

2Stilet, хороший способ! Но, если у чувака "свыше 200 000" строк, как-бы копирование tStringList в tMemo.lines лишние ресурсы не покушало. А если вот так:

procedure Tmain_form.Button2Click(Sender: TObject);
begin
   if listBox1.Items.IndexOf(ansiUpperCase(edit2.Text)) = -1 then
      listBox1.Items.Add(ansiUpperCase(edit2.Text))
   else
      showMessage('Строка уже имеется!');
end;

У меня правда для ltListBox.items, но под tMemo.lines тоже работает.

2Des, подпись смени, мало того что не цензурная, так к тому же ещё и глупая...

[Stilet]

как-бы копирование tStringList в tMemo.lines лишние ресурсы не покушало.

А кто сказал про копирование? Если исключение есть строка не добавляется в Мемо всего-то.
tStringList я предложил для анализа дубликатства. но я не говорил что из него потом вся инфа пойдет.