hatte gedacht, dass man mit den "fortschrittlichen" komponenten wenigstens (relativ einfach) die Dateinamen auslesen und diese (Un)Selektieren kann, vor allem wenns eine Dateibrowserkomponente ist.
Aber umsomehr ich mich damit beschäftige umso komplizierter wird es.
Und da anscheinend niemand solche komponenten benutzt, scheinen sie auch net gut zu sein.
Deswegen lass ich es lieber und kehre wieder zu den Delphi-Mitgeliferten-Komponenten zurück.
Habe es immerhin soweit geschafft, das er nur die mp3s markiert, nur beim Beenden des Programms kamen einige schwerwiegende Fehler ohne Zeilenangabe im Code, die nicht "normal" sind
Delphi-Quellcode:
var i, all: integer;
Node: pvirtualnode;
s: Tstrings;
begin
s := Tstringlist.Create;
vlistview1.SelectAll(false);
s := vlistview1.SelectedFiles;
all := VListview1.SelectedCount;
Node := vlistview1.GetFirstSelected;
for i := 1 to all do
begin
if ansilowercase(extractfileext(s.Strings[i-1])) <> '.mp3' then
begin
vlistview1.Selected[node] := false;
Node := vlistview1.GetNextSelected(Node);
end
else
if i <> all then node := vlistview1.GetNextSelected(Node);
end;
s.Free;
end;
falls jemand Verbesserungsvorschläge hat, kann ich es ja mal probieren.