Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hawkeye219,
13. Feb 2007
Du hast es indirekt geändert - durch die Verwendung von TOpenDialog. Dieser verstellt beim Navigieren durch die Verzeichnisse und anschließender Übernahme eines Dateinamens auch das aktuelle Verzeichnis.
@Flom
Ein neues Element in TListView kannst du mit der Add-Methode von TListView.Items erzeugen. Die auskommentierte Zeile in deinem ersten Beitrag war fast richtig:
Item :=...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hawkeye219,
13. Feb 2007
Natürlich funktioniert es - wenn die Dateien im aktuellen Verzeichnis liegen. TSearchRec enthält in der Eigenschaft .Name den Dateinamen inklusive Extension, nicht aber einen Verzeichnisanteil.
Ändere den Quelltext mal wie folgt ab:
...
SetCurrentDir ('C:\'); // neu
if FindFirst(dir+'\*.mp3', faAnyFile, sr) = 0 then begin
repeat
if ReadID3v2Tag(sr.Name, lTitle, lArtist, lAlbum,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hawkeye219,
13. Feb 2007
Hallo,
das stimmt nicht, und es wäre auch unsinnig, weil FindFirst/FindNext immer in einer Verzeichnisebene arbeiten. Der Pfad für alle gelieferten Einträge ist somit identisch und er sollte der Applikation bekannt sein.
Gruß Hawkeye