Как сделать антидубликат Delphi

@v1dark · Регистрация: 15.06.2013

Author24 — интернет-сервис помощи студентам

как сделать анти дубликат тоесть он будет из мемо удалять дубликати

@northener · 25.08.2013, 21:47

Delphi

1
2
3

for i:=Memo1.Lines.Count-1 downto 0 do
  if Memo1.Lines.IndexOf(Memo1.Lines[i]) >= 0 then
    Memo1.Lines.Delete(i);

@daslex · 25.08.2013, 23:01

Не по теме:

можно так. в любом случае будет полезно посмотреть и сравнить оба варианта.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var S1:TStringList;
    i:Integer;
    S:String;
begin
 
  S1:=TStringList.Create;
  S1.Clear;
  Memo1.WordWrap:=False;
 
  //*Âîò ãëàâíàÿ ÷àñòü*//
  for i:=0 to Memo1.Lines.Count-1 do Begin
     S:=Memo1.Lines.Strings[i];
     if S1.IndexOf(S)<0 then S1.Add(S)
     else continue;
  end;
 
 
     Memo1.Text:=S1.Text;
  S1.Free;
end;

@volvo · 25.08.2013, 23:53

northener, твой код будет всегда чистить весь Memo (ибо саму искомую строку IndexOf найдёт всегда), надо еще проверять, чтобы результат IndexOf был не больше чем (i - 1)...

@northener · 26.08.2013, 00:42

Сообщение от UI

northener, твой код будет всегда чистить весь Memo

Согласен, склероз блин.

Привожу свой код с ДМ от 2007-02-18 01:14 с небольшой корректировкой:

Delphi

1
2
3

with Memo.Lines do
 for i:=Count-1 downto 1 do
   if IndexOf(Strings[i]) <> i then Delete(i);

Добавлено через 6 минут
Но конечно сей код верен только если в Дельфи не поменяется реализация TStrings.IndexOf

@v1dark 0 / 0 / 1 Регистрация: 15.06.2013 Сообщений: 67
		1
	Как сделать антидубликат Delphi 25.08.2013, 20:49. Показов 1132. Ответов 4 Метки нет (Все метки) как сделать анти дубликат тоесть он будет из мемо удалять дубликати 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	25.08.2013, 23:53	4
	northener, твой код будет всегда чистить весь Memo (ибо саму искомую строку IndexOf найдёт всегда), надо еще проверять, чтобы результат IndexOf был не больше чем (i - 1)... 0

	26.08.2013, 00:42