Поиск в Memo уникальной строки (Delphi)

[giga_person]

Уважаемые программисты!

В Memo есть строка, которая встречается один раз, все остальные строчки повторяются. Необходимо найти эту одну строку (или иначе - исключить все повторяющиеся).

Код сравнивает первую строчку с остальными, и повторяющиеся заменяет пустой строкой. Первая строчка остаётся. Как продолжить сравнение, т.е. вторая строчка с остальными и т.д., и при этом что бы удалялась оригинальная (первая и т.д. - с которой идёт сравнение) строка?

 var
   i, x: integer;
begin

 x := 0;
 i := 1;

 repeat
 begin
   if Memo1.Lines[x] = Memo1.Lines[i]
     then Memo1.Lines[i] := '';
 inc(i);

 end;
 until i = 10000;

end;

[Serge_Bliznykov]

а скажите, важен ли порядок строк?
если использовать метод Memo1.Lines.Sort, то тогда достаточно будет одного прохода, чтобы найти нужную строчку...

а Вашем случае надо делать цикл в цикле (i := x +1; затем цикл по i) и прерывать, если текущую строчку не нашли...

[giga_person]

Порядок не важен. А что это за метод Memo1.Lines.Sort?

[russian-stalker]

Метода Sort нету у TStrings, он есть только у TStringlist.
Можно конечно измудриться и написать так:

procedure TForm1.Button1Click(Sender: TObject);
var
 s:tstringlist;
 i:integer;
begin
 s:=TStringlist.Create;
 for i := 0 to memo1.Lines.Count - 1 do
  s.Add(memo1.Lines.Strings[i]);
 s.Sort;
 i:=0;
 while i<s.Count-1 do
 begin
   if s[i]=s[i+1] then
   begin
     s.Delete(i+1);
     s.Delete(i);
   end else
   inc(i);
 end;
 memo1.Clear;
 for I := 0 to s.Count - 1 do
  memo1.Lines.Add(s[i]);
 s.Free;
end;

[Serge_Bliznykov]

russian-stalker, примерно так. правда, я бы не удалял найденные строки, а выходил сразу, как только какая-то строчка не нашлась (ведь нужно найти одну уникальную строчку).

Вот только зачем же строки переносить в цикле?!?!!!!

  ts := TStringList.Create;
  ts.Text := Memo1.Lines.Text;
  ts.Sort;
  ...
  Memo1.Lines.Text := ts.Text;

[russian-stalker]

Ага, не подумал. Спасибо что исправили.

[giga_person]

Serge_Bliznykov и russian-stalker, спасибо!

[Google2010]

вот еще как вариант

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
    y:boolean;
begin
 for I := 0 to memo1.Lines.Count - 1 do
   begin

   y:=false;
   for j := 0 to memo1.Lines.Count - 1 do
      if (i<>j) and (memo1.Lines[i]=memo1.lines[j]) then begin
          y:=true; break;end;
    if not y then break;

   end;
   showmessage(memo1.Lines[i]);
end;

[Serge_Bliznykov]

Google2010, ну, если как вариант...

тогда можно чуть оптимизировать:

   y:=false;
   for j := i+1 to memo1.Lines.Count - 1 do
      if (memo1.Lines[i]=memo1.lines[j]) then begin
          y:=true; break; end;
   if not y then break;

ну и предусмотреть, что такой строки нет, разумеется.

p.s.
>>showmessage(memo1.Lines[i]);
и, кстати, использование переменных цикла (for) ВНЕ цикла небезопасно... лучше использовать дополнительную переменную или заменить цикл for на другой цикл.

[Google2010]

и, кстати, использование переменных цикла (for) ВНЕ цикла небезопасно... лучше использовать дополнительную переменную или заменить цикл for на другой цикл.

дык робит же)))