论文网
关于歌词相关论文范文素材,与利用Delphi开发LRC歌词编辑器相关论文答辩开场白
本论文是一篇关于歌词相关论文答辩开场白,关于利用Delphi开发LRC歌词编辑器相关函授毕业论文范文。免费优秀的关于歌词及参考文献及时间方面论文范文资料,适合歌词论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
原貌未安装PDF浏览器用户请先下载安装原版全文closeFile(F),end,
end,
end,
2.4.2将歌曲播放的当前时间放到文本框中.
procedureTForm1.Timer1Timer(Sender:TObject),
varmin,sec,msec,len:integer,
s:string,
t:TDateTime,
begin
len:等于round(Form1.MediaPlay1.CurrentPosition*1000),
Form1.TrackBar1.Position:等于lendiv1000,
oldpos:等于lendiv1000,
min:等于lendiv1000div60,
sec:等于lendiv1000-min*60,
msec:等于lenmod1000,
s:等于format('%2d:%2d:%2d.%3d',[0,min,sec,msec]),
t:等于StrToDatetime(s),
Form1.Edit1.text:等于formatDateTime('nn:ss.zzz',t),
//播放结束时的操作
if(Form1.MediaPlay1.Duration*1000-len)<300then
Form1.StopSpeedButtonClick(sender),
end,
2.4.3单击网格相应位置,将当前时间添加到时间标签中
procedureTForm1.StringGrid1Click(Sender:TObject),
begin
ifcanclickand(StringGrid1.col<4)then
StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]:等于
'['+copy(Edit1.Text,1,8)+']',
end,
2.5保存编辑好的LRC歌词
LRC歌词编辑完成后,需要将其保存,以下是保存LRC歌词的代码.
procedureTForm1.SaveSpeedButtonClick(Sender:TObject),
varF:textFile,
i,j:integer,
fname,s:string,
begin
//保存歌词文件
saveDialog1.InitialDir:等于mdir,
SaveDialog1.FileName:等于changeFileExt(ComboBox1.text,'.lrc'),
ifSaveDialog1.Executethen
begin
fname:等于saveDialog1.FileName,
AssignFile(F,fname),
Rewrite(F),
writeln(F,'[ti:'+Edit2.text+']'),
writeln(F,'[ar:'+Edit3.text+']'),
writeln(F,'[al:'+Edit4.text+']'),
writeln(F,'[offset:'+Edit5.text+']'),
fori:等于1toStringGrid1.RowCount-1do
begin
s:等于'',
forj:等于0toStringGrid1.ColCount-1do
s:等于s+StringGrid1.Cells[j,i],
writeln(F,s),
end,
closefile(F),
end,
end,
以是代码在Delphi7.0中调试通过.
3结束语
本文详细介绍了如何利用Delphi开发一个LRC歌词编辑器,并给出了全部源代码,广大的Delphi编程爱好者可以在此文的基础上,开发出功能更完整的LRC歌词编辑器.
参考文献：
[1]明日科技.Delphi开发技术大全[M].人民邮电出版社,2007.
[2]明日科技.Delphi组件参考大全[M].人民邮电出版社,2006.
[3]吕伟臣.精通Delphi7.0[M].科学出版社,2004.
注：本文中所涉及到的图表、注解、公式等内容请以PDF格式阅读原文.
本文为全文原貌未安装PDF浏览器用户请先下载安装原版全文
关于歌词相关论文范文素材,与利用Delphi开发LRC歌词编辑器相关论文答辩开场白参考文献资料：