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