doppelte Einträge verhindern beim öffnen mit OpenDialog

[marabu]

Oder so:

Delphi-Quellcode:

procedure TDemoForm.AddButtonClick(Sender: TObject);
var
  i: Integer;
begin
  with OpenDialog, ListBox do
    if Execute then
    begin
      Items.BeginUpdate;
      for i := 0 to Pred(Files.Count) do
        if Items.IndexOf(Files[i]) < 0 then
          Items.Add(Files[i]);
      Items.EndUpdate;
    end;
end;

Grüße vom marabu