hi
ich hab ein prob mit multi select vom open dialog ... ich möchte mehrere dateien markieren und die sollen dann untereinander in die listview rein mit den ganzen zugehörigen daten ...
das einfügen einer datei geht wunderbar nur sobald ich mehrere markiere gibt es nur noch komische einzelne buchstaben aus ...
hier der code:
(open=opendialog, filebox=listview, die sachen die eingefügt werden sind halt funktionen die daten der datei ermitteln)
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
| var
i: integer;
begin
if open.Execute then
begin
for i := 0 to open.Files.Count do
begin
with filebox.Items.add do
begin
caption := extractfilename(open.FileName[i]);
subitems.Add(filesize(open.filename[i], true) + ' KB');
subitems.Add(getfiletype(open.filename[i]));
subitems.Add(FormatDateTime('dd/mm/yy hh:mm',
filedate(Open.FileName[i])));
subitems.add(open.filename[i]);
end;
end
end; |
kann mir einer sagen wo mein fehler ist?
danke
