Ok, dann müsste das ja das Richtige sein.
Aber irgendwie komme ich mit diesem ListView nicht zurecht und die Hilfe funktioniert nicht mehr. Da kommt am Start ein Fehler, dass die Datei nicht gefunden wurde für die Hilfe, deswegen frag ich jetzt hier.
Wie funktioniert das ListView genau?
Also es gibt ja dazu noch das ListItem und Subitem, aber die Subitems bekomm ich z.B. garnicht angezeigt und wenn ich mehrere ListItems haben will, müsst ich die ja alle oben deklarieren oder wie?
Hier mal ein Ausschnitt:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var srec: TSearchRec;
li: TListItem;
begin
//--------Dateien einlesen
if Findfirst('Verzeichnis+'*.mp3', faAnyFile, srec) = 0 then
begin
REPEAT
li := ListView1.Items.Insert(0);
li.Caption := srec;
UNTIL FindNext(srec) <> 0;
end;
findclose(srec);
//------------------------
end;
Also das Programm geht in ein Verzeichnis und soll von dort alle Lieder mit der Endung .mp3 auflisten.
Zwischen REPEAT und UNTIL sollen dann die Ergebnisse in das ListView eingetragen werden.
Nur wenn ich das jetzt so mache, falls das überhaupt so richtig ist, gibt er mir natürlich den Fehler, dass li.Caption ein String und kein TSearchRect sein darf.
Danke schonmal,
Gruß PatrickB