Hallo zusammen,
Ich bin grade dabei eine Playlist zu entwerefn die etwas mehr kann als normal......
ICh habe mir überlegt das ich die Playlist mit pointern machen will .... nur jetzt funktioniert es nicht so
wie es sollte obwohl ich es immer so gemacht habe und es funktionierte!!!
Hier der Quelltext :
Delphi-Quellcode:
type
Z_PlayList = ^T_Playlist;
T_PlayList = record
Path : String;
Name : String;
Artist : String;
Title : String;
format : integer;
next : Z_Playlist;
end;
Das ist mein Record für die einträge -> next zeigt immer auf den nächsten eintrag
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var index,neu : Z_PlayList;
fn : String;
tag : T_IDTag;
begin
if OD1.Execute then
begin
fn := OD1.FileName;
Tag := GetIDTag(fn,ID_Tag1);
new(neu);
neu.Path := ExtractFilePath(fn);
neu.Name := ExtractFileName(fn);
neu.Artist := Tag.Artist;
neu.Title := Tag.Title;
neu.format := 0;
neu.next := nil;
if PList = nil then PList := neu
else
begin
index := PList;
while index <> nil do
begin
index := index.next;
end;
index := neu;
end;
end;
end;
Innehalb der While schlife bekomm ich jetzt immer nen fehler ausgespuckt (inkompatible typen T_PlayList und Z_PlayList)
und das obwohl beide variablen (index sowie index.next) vom typ Z_Playlist sind!?!?!?
Wo ist also der fehler?
MFG PMC