wenn ich das so habe:
Delphi-Quellcode:
procedure TPlaylistenManger.SetPlaylistItems(const AValue: TStrings);
begin
//fPlaylistItems.Assign(AValue);
fPlaylistItems:=TStringList(AValue);
end;
procedure TPlaylistenManger.LoadFromFile(const aFileName: String = '');
var
i:integer;
begin
InitPlaylist(ExtractFileName(aFileName),Playliste);
Playliste.OhneExt:=OhneExt;
Playliste.PlayListItems:=TStringlist(PlayListItems);
Playliste.LoadFromFile(aFileName);
writeln(PlayListItems.text);
// PlayListItems.Assign(Playliste.PlayListItems);
_ext:=Playliste.ext;
end;
sehe ich was in der Listbox und die Writeln Meldung wird ausgeben.
Das Problem jedoch sobald ich versuche von einer anderen Procedure aus auf PlayListItems.Text zuzugreifen, ist diese Leer. Aber genau das ist gerade für mein vorhaben wichtig. Das das nicht so ist.