Abfage einer FileListbox auf doppelte dateien

[DelphiKlaus]

Hallo,

wenn, dann vielleicht so:

Delphi-Quellcode:

  if FileListBox1.Items.IndexOf (FileListbox1.Items [FileListBox1.ItemIndex]) then 
    MessageDlgPos ('Datei vorhanden', mtInformation, [mbOk], 0, 290, 300);

Dann wird aber nur überprüft, ob der angewählte Eintrag doppelt vorkommt. Wenn Du alle doppelten haben willst:

Delphi-Quellcode:

  for Loop1 := 0 to Pred (FileListBox1.Items.count) do
    for Loop2 := Succ (Loop1) to Pred (FileListBox1.Items.count) do
      if FileListBox1.Items.IndexOf (FileListbox1.Items [Loop2]) <> Loop2 then 
        MessageDlgPos ('Datei vorhanden', mtInformation, [mbOk], 0, 290, 300);

Habs nicht getestet; aber so in etwa sollte es gehen.

Viele Grüße

Klaus