StringList - doppelte Einträge vermeiden

[Gambit]

Hallo,

folgender Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    aList.Add(OpenPictureDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
s    : String;
begin
  for i:= 0 to aList.Count-1 do
    s:= s+aList.Strings[i]+#10#13;
  showMessage(s);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  aList:= TStringList.Create;
  aList.Duplicates:= dupIgnore;
end;

durch das setzen der Property aList.Duplicates:= dupIgnore soll eigentlich das Einfügen von bereits vorhandenen Strings vermieden werden. Funzt aber nicht. Was ist falsch?

Gruß

Gambit

[roderich]

laut Delphi-Hilfe muß die property Sorted auf true gesetzt sein, damit Duplicates überhaupt greift.

Roderich

[Gambit]

Danke!

[sECuRE]

Hi,

ich kenn die Eigenschaft nicht, die du hier verwenden willst. Ich würd das "per Hand" machen:

Delphi-Quellcode:

function CheckIfDouble(const entry: string; var list:TStringList; case_sensitive: boolean):boolean;
var c:integer;
begin
for c:=0 to (list.count-1) do
  if ((list.strings[c] = entry) and case_sensitive) or ((lowercase(list.strings[c]) = lowercase(entry)) and (not case_sensitive)) then begin
    result:=true;
    break;
  end;
result:=false;
end;

// Stelle, an der hinzugeüfgt wird
procedure AddItem(item: string);
begin
if (not CheckIfDouble(item, aList, false)) then
  aList.Add(item);
end;

Vielleicht hilft dir das ja weiter

cu

[Steve]

Hi,

ansonsten kannst Du vor dem Add auch mit IndexOf prüfen, ob der Eintrag bereits vorhanden ist (ähnlich wie dieses "CheckIfDouble" nur einfacher ).

Gruß
Stephan

[sECuRE]

Hi,

IndexOf erlaubt aber keine Unterscheidung zwischen Groß-/Klein-Schreibung, oder?

cu

[Gambit]

Ja, ich hatte zunächst auch überlegt es per hand zu machen aber

aList.Duplicates:= dupIgnore; funzt sehr gut, warum sollte ich es dann nicht nehmen. Da die Listen sehr klein sind sollte es auch keine Geschwindigkeitsnachteile durchs vorherige Sortieren geben...

[Steve]

Hi,

² secure: stimmt.
² gambit: hätte ja sein könne, dass die Liste nicht sortiert werden soll

Gruß
Stephan

[LoL]

Du köntest ja auch die Add Methode überschreiben und vorher überprüfen ob der eintrag vorhanden ist!