Удалить из файла похожие строки

[erzhik_s]

Существует файл с данными:

text1.text2
text.text1.text2
string1.string2
string.string1.string2.string3

Как удалить строки что бы в итоги было:
text1.text2
string1.string2

[IvaD]

На скорую руку=) В качестве примера. Кидаешь на форму Memo и Button.
И кнопку пишешь:

procedure TForm1.Button1Click(Sender: TObject);
var e,i: Integer;
j:String;
begin
  memo1.Lines.LoadFromFile('Твой файл');  \\ Грузим файл, не забываем указать путь к нему=)
for e:=0 to  Memo1.Lines.Count-1 do    \\ С первой по последнюю строку
  begin
    j:=Memo1.Lines[e];                       \\ В качестве искомого теста берём первую строку
      for i:=e+1 to Memo1.Lines.Count-1 do              \\ Со следующей строки по последнюю
        begin
          if AnsiPos(j, Memo1.Lines[i])<>0 then                 \\ Если нашли
            begin
              Memo1.Lines.Delete(i);                                 \\ Удаляем
            end;
        end;
  end;
  Memo1.Lines.SaveToFile('Твой файл');                        \\ Сохраняем свой файл 
end;

[Serge_Bliznykov]

IvaD
категорически не согласен.

Вы делаете традиционную ошибку: в ПРЯМОМ цикле FOR нельзя удалять объекты, которые зависят от счётчика цикла!!

нужно использовать другие виды цикла (while/repeat) или крутить цикл в ОБРАТНУЮ сторону. например, так:

for e:=Memo1.Lines.Count-1 downto 1   do    \\ С последней строку по первую
  begin
     sFind := Memo1.Lines[e];                       \\ В качестве искомого теста берём текущую строку
      for i:=e-1 downto 0 do              \\ Со следующей строки по последнюю
        begin
          if AnsiPos(sFind, Memo1.Lines[i])<>0 then                 \\ Если нашли
              Memo1.Lines.Delete(i);                                 \\ Удаляем
        end;
end;

пишу прямо на форуме, код, разумеется, не проверял!

[erzhik_s]

IvaD, спасибо!