AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Delete duplicates from list

Ein Thema von WojTec · begonnen am 3. Jan 2012 · letzter Beitrag vom 4. Jan 2012
Antwort Antwort
Seite 1 von 2  1 2   
WojTec

Registriert seit: 17. Mai 2007
440 Beiträge
 
Delphi XE6 Professional
 
#1

Delete duplicates from list

  Alt 3. Jan 2012, 19:32
Delphi-Version: 2010
Delphi-Quellcode:
var
  S: string;
  I: Integer;
begin
  for S in List do
  begin
    I := List.IndexOf(S);
    while I = -1 do
    begin
      List.Delete(I);
      I := List.IndexOf(S);
    end;
  end;
end;
...but nothing happen after this. List is TStrings. F1
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
4.856 Beiträge
 
Delphi XE Starter
 
#2

AW: Delete duplicates from list

  Alt 3. Jan 2012, 19:41
.. could it be that I has never value -1
because S is in the List and you will get for I the position in the List of S.

Delphi-Quellcode:
for S in List do
  begin
    I := List.IndexOf(S);
    while I = -1 do
    begin
      List.Delete(I);
      I := List.IndexOf(S);
    end;
  end;
edit:
If you want to use TStringList there is an property called duplicates
This can be set to avoid duplicate entries in the list.

Best regards
Klaus
Klaus

Geändert von Klaus01 ( 3. Jan 2012 um 19:58 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
24.603 Beiträge
 
Delphi XE Professional
 
#3

AW: Delete duplicates from list

  Alt 3. Jan 2012, 19:48
Delphi-Quellcode:
var
  S: string;
  I, J: Integer;
begin
  for S in List do
  begin
    I := List.IndexOf(S);
    for J := List.Count - 1 downto I + 1 do
      if List[J] = S then
        List.Delete(J);
  end;
end;
Or use a TStringlist as Klaus said before (this TStringlist must have set Sorted to true).
Detlef
Wenn Dein Programm nicht macht, was es soll, nenn es einfach "Version 1.0"

Delphi programming is cool
  Mit Zitat antworten Zitat
WojTec

Registriert seit: 17. Mai 2007
440 Beiträge
 
Delphi XE6 Professional
 
#4

Re: Delete duplicates from list

  Alt 3. Jan 2012, 20:07
I found example for TStringList:
Code:
http://delphi.about.com/od/delphitips2009/qt/remove-duplicat.htm
but, first is for TStringList - I need for TStrings - it's component property, and second uses sorting and data order is important, so I can't sort it. Thanks for help, guys
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
4.856 Beiträge
 
Delphi XE Starter
 
#5

AW: Delete duplicates from list

  Alt 3. Jan 2012, 20:11
Delphi-Quellcode:
sList := TStringList.create;
try
  sList.sorted := true;
  sList.duplicates := dupIgnore;
  sList.assign(List);



  List.assign(sList);
finally
  sList.free;
end;
not tested.

Best regards
Klaus
Klaus
  Mit Zitat antworten Zitat
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
906 Beiträge
 
Delphi 2007 Professional
 
#6

AW: Delete duplicates from list

  Alt 3. Jan 2012, 22:03
Alternative:

Delphi-Quellcode:
procedure RemoveDoubles(Strings: TStrings);
var
  I, J: integer;
begin
  Strings.BeginUpdate;
  I:= 0;
  while I <= Strings.Count-2 do
  begin
    J:= I+1;
    while J <= Strings.Count-1 do
    begin
      if Strings[I] = Strings[J] then
      begin
        Strings.Delete(J);
        Dec(J);
      end;
      Inc(J);
    end;
    Inc(I);
  end;
  Strings.EndUpdate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RemoveDoubles(Memo1.Lines);
end;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
24.603 Beiträge
 
Delphi XE Professional
 
#7

AW: Delete duplicates from list

  Alt 4. Jan 2012, 08:02
Da finde ich meinen Vorschlag aber übersichtlicher (nix für ungut).
Detlef
Wenn Dein Programm nicht macht, was es soll, nenn es einfach "Version 1.0"

Delphi programming is cool
  Mit Zitat antworten Zitat
Furtbichler
(Gast)

n/a Beiträge
 
#8

AW: Delete duplicates from list

  Alt 4. Jan 2012, 08:40
Schneller (ohne Sort):
Delphi-Quellcode:
For i := List.Count - 1 downto 0 do
  For j := List.Count - 1 downto i + 1 do
    If s[i]=s[j] then
      s.delete(j);
@DeddyH:  for S in List do I := List.IndexOf(S); entspricht doch For i := 0 to List.Count-1 do S := List[i]; , nur das Letzteres um eine Größenordnung performanter ist oder irre ich mich?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
24.603 Beiträge
 
Delphi XE Professional
 
#9

AW: Delete duplicates from list

  Alt 4. Jan 2012, 08:46
Das mag schon sein, ein wenig C&P sei mir doch gegönnt.
Detlef
Wenn Dein Programm nicht macht, was es soll, nenn es einfach "Version 1.0"

Delphi programming is cool
  Mit Zitat antworten Zitat
Furtbichler
(Gast)

n/a Beiträge
 
#10

AW: Delete duplicates from list

  Alt 4. Jan 2012, 08:47
Ohne Quellenangabe?
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2014 by Daniel R. Wolf