基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 8 元　

支付宝支付

微信支付

   源码介绍

---

 原创开源播放器-包含歌曲列表，歌曲控件，歌手秀，歌曲下载，歌词下载，歌词秀 Code Write By TonyShu

全部原创

procedure TMrRec.LoadLRC(s:string);
var
  i,n:Integer;
  str: WideString;
  iRow:integer;
  k:integer;
  timestr:String;
  content:WideString;
  lastIndex:integer;
  timeNum:integer;
  FTextList:TStringList;
begin
   FTextList:=TStringList.create;
   FTextList.LoadFromFile(s);
   lntList.Clear;
   for i:=0 to FTextList.count -1 do
   begin
       str := FTextList[i];
       lastIndex:=LastDelimiter(']',str);
       timeNum:=lastIndex div 10;
       content :=copy(str,lastIndex 1,length(str)-lastIndex) ;
       if timeNum=0 then
       else
       for n:=0 to timeNum-1 do
       begin
          timestr:=copy(str,n*10 1,10) ;
          If Copy(timestr,10,1)<>']' then  Continue else  If Copy(timestr,7,1)<>'.' then   Continue  Else
           New(reclistTemp);
           reclistTemp.TimeInt:=StrToFloat(Copy(timestr,2,2))*60 StrtoFloat(Copy(timestr,5,2)) StrtoFloat(Copy(timestr,8,2))/1000;
           if content= '' then content := '...................';
           reclistTemp.LrcStr:=(content);
           reclistTemp.TimeStr:=FloatToStr(reclistTemp.TimeInt);
           reclistTemp.TimeStrs:=timestr;
           lntList.Add(reclistTemp);
           lntList.Sort(@CompareNames);
       end;
    end;
  FTextList.Free;
end;