Soo, an sich hat nun alles funktioniert.
Ich hab jez nur ein anderes Problem, was sich aber auch darauf bezieht:
Ich lese in einer Schleife Daten (Ordner) aus, speichere den Pfad und die mp3s im ordner (als Stringlist) in einem Tm3u-Object und adde dieses in die liste m3uList.
Das mache ich so:
Delphi-Quellcode:
procedure createObjs;
var
i : Integer;
m3uObj : Tm3u;
aDir : String;
begin
m3uObj := Tm3u.Create;
with m3uForm.TreeView do
begin
for i := 0 to Items.Count-1 do
begin
if countMP3s(addSlash(currDir+getNodePath(Items[i]))) > 0 then
begin
m3uObj.dir := addSlash(getNodePath(Items[i]));
getMP3s(addSlash(currDir+getNodePath(Items[i])),m3uObj.mp3s);
m3uList.Add(m3uObj);
end;
end;
end;
//m3uObj.Free;
end;
Wenn ich aber nun zum schluss die einzelnen Objecte ausgeben lasse, haben allse den gleichen Pfad und alle haben ALLE mp3-namen (aus allen ordnern) in den Listen gespeichert.
Was mache ich falsch? Was muss ich ändern?
Hoffe auf Hilfe, eyeless