OpenDialog, Multiselect, Listbox

[OLLI_T]

HY Synex!

Ab und an mag es kein Fehler sein, die eine oder andere Zeile ein wenig einzurücken:

Delphi-Quellcode:

  opendialog1.Options:=[ofAllowMultiSelect,ofEnableSizing];   //multiselect erlauben
  if opendialog1.Execute then
  begin
    listbox1.Clear; listbox2.Clear;
    if opendialog1.Files.Count>1 then begin
      for ii:= 0 to opendialog1.Files.Count-1 do begin
        i:=listbox1.items.IndexOf(extractfilename(opendialog1.Files.Strings[ii]));
        if i<0 then begin
          listbox1.Items.Append(extractfilename(opendialog1.Files.Strings[ii]));
          listbox2.Items.Append(opendialog1.Files.Strings[ii]);
        end;
      end;
    end else begin
      i:=listbox1.items.IndexOf(extractfilename(opendialog1.Files[0]));
      if i<0 then begin
        listbox1.Items.Add(extractfilename(opendialog1.Files[0]));
        listbox2.Items.Add(opendialog1.Files[0]);
      end;
    end;
  end;

Prost denn

OLLI