音乐播放器嵌套循环致假死：顺序播放正常但无法交互问题咨询

问题描述 #

我正在为课程作业开发一款音乐播放器，当前需要实现曲目顺序播放功能。目前播放音乐的代码如下：

repeat 
  //Other code that's related to responding to user input 
  while i < trackCount - 1 do begin 
    if not MusicPlaying() then begin 
      PlayMusic(trackName, 1); 
      trackNumber := trackNumber + 1; 
      i := i + 1; 
    end; 
  end; 
until WindowCloseRequested(); 

这段代码的逻辑是：当曲目列表未播放完毕时，若当前无音乐播放，则播放下一曲目并递增i，以便播放完成后切换到下一首。但运行后程序看似崩溃，点击播放后无法进行交互，不过音乐仍能正常按顺序播放。程序后续会恢复正常，但再次尝试播放列表时又会回到假死状态。请问这是代码写法有误，还是我对嵌套循环的特性存在认知盲区？

问题分析与解决方案 #

嘿，这个问题我太熟悉了——你遇到的是UI线程被阻塞的典型问题！

先拆解你的代码结构：外层是repeat...until循环，里面嵌套了一个while循环。问题就出在这个内层的while循环上：一旦进入这个循环，它会一直占用CPU，反复轮询MusicPlaying()的状态，完全不给你注释里写的「处理用户输入的代码」运行的机会。

为什么音乐还能正常播放？因为PlayMusic()大概率是异步执行的——它只是给系统发送了「开始播放这首歌」的指令，然后立刻返回了，所以音乐播放不受影响，但你的主线程却被死死卡在内层while里，没法处理按钮点击、窗口刷新这些UI事件，看起来就像程序“假死”了。

下面给你两种实用的修复方案：

方案1：改用播放完成回调（推荐） #

如果你的音乐播放库支持播放完成的回调函数，这是最优雅的解决方式。核心思路是让音乐播放完成时自动触发下一首，而不是让主线程一直轮询：

// 初始化阶段设置播放完成的回调函数
SetMusicFinishedCallback(@OnMusicFinished);

repeat 
  // 优先处理用户输入和UI更新——这部分必须保证能正常运行
  ProcessUserInput();
  UpdateUI();
until WindowCloseRequested();

// 音乐播放完成时触发的回调函数
procedure OnMusicFinished();
begin
  if i < trackCount - 1 then begin
    i := i + 1;
    trackNumber := trackNumber + 1;
    PlayMusic(trackNameList[i], 1); // 注意使用更新后的曲目名称列表
  end;
end;

这种方式下，主线程只负责处理UI和用户交互，音乐播放的切换逻辑交给回调函数，完全不会阻塞线程。

方案2：调整循环逻辑，避免阻塞主线程 #

如果暂时没法使用回调，那就要修改你的嵌套循环，让它每次只做一次状态检查，然后立刻回到外层循环处理UI：

repeat 
  // 先处理用户输入和UI事件——这部分必须放在最前面！
  //Other code that's related to responding to user input 
  ProcessUserInput();
  UpdateUI();

  // 只检查一次是否需要播放下一首，而非死循环轮询
  if (i < trackCount - 1) and (not MusicPlaying()) then begin 
    PlayMusic(trackName, 1); 
    trackNumber := trackNumber + 1; 
    i := i + 1; 
  end; 
until WindowCloseRequested(); 

这样每次外层循环都会先处理UI事件，再检查播放状态，就不会出现假死了。之前的内层while循环是罪魁祸首——它会一直绕圈，根本不给UI代码运行的机会。

总结一下：你之前的问题不是对嵌套循环的认知盲区，而是没考虑到主线程不能被长时间阻塞，UI和用户输入的处理必须持续获得CPU时间才能正常工作。

内容的提问来源于stack exchange，提问作者Khang