Einzelnen Beitrag anzeigen

Benutzerbild von dahead
dahead

Registriert seit: 16. Mai 2005
620 Beiträge
 
#11

Re: Doppelte Einträge entfernen?

  Alt 5. Aug 2005, 12:00
Zitat von smart:
Ich habe folgendes mal versucht:
Delphi-Quellcode:
sl := TStringList.Create;
       try
          For Z := 0 To Memo.Lines.Count -1 do
              begin
                   with sl do
                       begin
                             Sorted := True; //hier
                             Duplicates := dupIgnore; //hier
                             Add(Memo.Lines[Z]);
                        end;
                  Memo.Lines.Assign(sl);
               end;
           finally
           sl.Free;
          end;
Klappt aber nicht. Wohl ein Denkfehler!
du solltest die zuweisung von eigenschaften auch niemals in einer schleife aufrufen.
am besten weist du "Sorted := True; Duplicates := dupIgnore" nach dem Create zu.
so als allgemeiner tipp.
  Mit Zitat antworten Zitat