TstringList übergabe verkürzen

[EWeiss]

PUSH
Verzeiht mir nochmal.

Delphi-Quellcode:

  for IntI := PlaylistPos to (PlaylistPos + 12) do
    PlaylistEntry := PlaylistEntry + playlist.Items[IntI] + ',';

    BASS_WINAMPVIS_SetPlaylistEntries(PlaylistPos,
                                      PlaylistEntry,
                                      false);

Diese übergabe wird in der DLL mit mehr als 80 einträge ausgewertet.
das kann aber nicht sein. Da nur 13 übergeben werden.

Wo liegt hier der fehler ?

Delphi-Quellcode:

procedure  BASS_WINAMPVIS_SetPlaylistEntries(PlPos : integer; Title : string;
                                             changed : boolean); stdCall;
Var
  IntI : integer;

begin
   try
     if PlaylistEntries = nil then
         PlaylistEntries := TStringList.Create;

     if changed then PlaylistEntries.clear;
     begin
         PlaylistEntries.CommaText := Title;
         if PlaylistEntries.Count > 13 then
         begin
           PlaylistEntries.Free;
           exit;
         end;

       for IntI := PlPos to PlaylistEntries.Count do
         PlaylistEntries.Add(PlaylistEntries.Strings[IntI]);

     end;
   except
     PlaylistEntries.Free;
   end;

end;

Thread hat sich erledigt ....

Gruss Emil