Wie verwende ich TDuplicates?

Corvin · Hält's aus hier Beiträge: 7

Hab noch nich viel Ahnung von Delphi aber ich würde trotzdem gerne wissen wie man TDuplicates verwendet.
Es gehört zu TStringList und kann die Werte dupIgnore, dupAccept oder dupError annehmen. Ich würde das dupIgnore jetzt gerne mal auf eine TStringList anwenden! Wie mach ich das?
THX 4 ANSWER!
(sagt mir wenn's ein noobforum gibt

)

_________________
Delphi-Noob

Gast Erhaltene Danke: 1

Was ist das Problem? Ist doch alles gut beschrieben:

Zitat:

Die Eigenschaft Duplicates legt fest, ob eine sortierte Liste String-Duplikate akzeptiert.

type TDuplicates = (dupIgnore, dupAccept, dupError);
property Duplicates: TDuplicates;

Beschreibung

Mit Duplicates können Sie festlegen, welche Aktion ausgeführt werden soll, wenn ein String mehrfach zu einer sortierten Liste hinzugefügt wird. Die Eigenschaft Duplicates kann folgende Werte annehmen:

Wert Bedeutung

dupIgnore Der Versuch, der sortierten Liste ein String-Duplikat hinzuzufügen, wird ignoriert.
dupError Der Versuch, der sortierten Liste ein String-Duplikat hinzuzufügen, führt zu einer EListError-Exception.
dupAccept Doppelte Strings in der sortierten Liste sind erlaubt.

Setzen Sie Duplicates, bevor Sie der Liste Strings hinzufügen. Wenn Sie Duplicates auf dupIgnore oder dupError setzen, hat das keine Auswirkungen auf doppelte Strings, die bereits in der Liste enthalten sind.

Hinweis

Duplicates hat keinerlei Auswirkungen, wenn die Liste nicht sortiert ist.

Also Ignoriert wird es schon, d.h. für Ignorieren brauchst du nichts zu machen.

Ich mach hier ein Beispiel für nicht ignorieren, also dupError:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Sorted := True;
    sl.Add('Popov');
    sl.Duplicates := dupError;
    sl.Add('Popov');
  finally
    sl.Free;
  end;
end;

Corvin · Hält's aus hier Beiträge: 7

Thx, darauf wär ich zwar nich gekommen, aber dafür hab ich ja euch.

(wegen der Syntax)
Wusste nicht dass man das so:

markieren

Quelltext

1:	sl.Duplicates := dupError;

macht!

//Wieso muss ich für's Ignoren nichts machen?

_________________
Delphi-Noob

Gast Erhaltene Danke: 1

Weil von anfang an doppelte Einträge ignoriert werden.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme