Удаления дубликатов строк memo

[AquaKlaster]

как удалить дубликаты строк в мемо?

[Stilet]

Например в цикле проходя по всем элементам или ссообщением LB_FINDSTRING или StringReplace можно применить.

[AquaKlaster]

Stilet, пример можно? исходник желательно, просто очень надо

[Stilet]

Например так:

var k,i:Integer;
begin
 k:=2;
 i:=ListBox1.Perform(LB_FINDSTRING,k,integer(pchar(ListBox1.Items[k])));
 while i<>k do begin
  ListBox1.Items.Delete(i);
  i:=ListBox1.Perform(LB_FINDSTRING,k,integer(pchar(ListBox1.Items[k])));
 end;
end;

Здесь k-номер строчки, дубликаты которой удалятся.

[AquaKlaster]

Stilet, я так понял мне с мемо прийдётся в листбокс перекидать а потом удалять дубли, а для мемо ничего такого нет?

[lexaltd]

Загони всё в TStringList
У TStringList есть свойство Duplicates
и потом обратно в Memo

Только свойство Duplicates работает оказывается , только с сортировкой , если так пойдёт то вот код

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  SL : TStringList;
  i : integer;
begin
  SL := TStringList.Create;
  SL.Sorted := true;
  SL.Duplicates := dupIgnore;
  SL.AddStrings(Memo1.Lines);
  Memo1.Clear;
  Memo1.Lines.AddStrings(SL);
  SL.Free;
end;

Вот без сортировки

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  SL : TStringList;
  i, i2 : integer;
  flag : Boolean;
begin
  SL := TStringList.Create;
  SL.AddStrings(Memo1.Lines);
 for i := Memo1.Lines.Count - 1 downto 0 do
  begin
   flag := False;
   for i2 := SL.Count - 1  downto  0 do
    begin
      if Memo1.Lines[i] = SL.Strings[i2] then
         if flag then
          SL.Delete(i2)
          else
          flag := True;
    end;
  end;
  Memo1.Clear;
  Memo1.Lines.AddStrings(SL);
  SL.Free;
end;

[Serge_Bliznykov]

а так не проще??

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
 i := 0;
 while i < Memo1.Lines.Count do
 begin
   if Memo1.Lines.IndexOf(Memo1.Lines[i]) < i then
     Memo1.Lines.Delete(i)
   else
     inc(i);
 end;
end;

[AquaKlaster]

ребят спс всем буду пробывать!