刚学Delphi,语法无法解决,求帮助

解决方案 »

  1.   

    0不加引号是integer型,和你前面的s[] ,类型不匹配
      

  2.   

    if (s[4]='0') and …
      

  3.   

    你的s定义好像有问题吧,看下面你使用的时候是数组,但是你定义的时候确实字符
    你要想把s当成数组用的话,你得定义成数组
    var s:array of double;
      

  4.   

    楼主的条件判断有问题,你的原意应当是,根据当前时间字符串,如21:00:00,如果分、秒字符均为'0',则条件成立,播放音乐。
    但不同的系统设置,TimeToStr得到的字符串可能是不同的,因此有可能失败或出现内存访问异常。
    你可以使用
    DecodeTime(Now(), wHour, wMin, wSec, wMSec);
    然后判断 wMin、wMin是否为0进行判断。