论文网
关于歌词相关论文范文素材,与利用Delphi开发LRC歌词编辑器相关论文答辩开场白
本论文是一篇关于歌词相关论文答辩开场白,关于利用Delphi开发LRC歌词编辑器相关函授毕业论文范文。免费优秀的关于歌词及参考文献及时间方面论文范文资料,适合歌词论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
oInt(copy(s,18,2))*10,mgc[mg,2]:等于IntToStr(msec),
msec:等于StrToInt(copy(s,22,2))*60*1000+StrToInt(copy(s,25,2))*1000+
StrToInt(copy(s,28,2))*10,
mgc[mg,3]:等于IntToStr(msec),
mgc[mg,5]:等于copy(s,31,l),
end,
if(l>40)and(s[1]等于'[')and(s[10]等于']')and
(s[11]等于'[')and(s[20]等于']')and
(s[21]等于'[')and(s[30]等于']')and
(s[31]等于'[')and(s[40]等于']')and
(s[41]<>'[')then
begin
mg:等于mg+1,
msec:等于StrToInt(copy(s,2,2))*60*1000+StrToInt(copy(s,5,2))*1000+
StrToInt(copy(s,8,2))*10,
mgc[mg,1]:等于IntToStr(msec),
msec:等于StrToInt(copy(s,12,2))*60*1000+StrToInt(copy(s,15,2))*1000+
StrToInt(copy(s,18,2))*10,
| 有关论文范文主题研究: | 关于歌词的文章 | 大学生适用: | 函授论文、专科论文 |
|---|---|---|---|
| 相关参考文献下载数量: | 51 | 写作解决问题: | 如何写 |
| 毕业论文开题报告: | 标准论文格式、论文设计 | 职称论文适用: | 期刊发表、职称评副高 |
| 所属大学生专业类别: | 如何写 | 论文题目推荐度: | 经典题目 |
mgc[mg,2]:等于IntToStr(msec),
msec:等于StrToInt(copy(s,22,2))*60*1000+StrToInt(copy(s,25,2))*1000+
StrToInt(copy(s,28,2))*10,
mgc[mg,3]:等于IntToStr(msec),
msec:等于StrToInt(copy(s,32,2))*60*1000+StrToInt(copy(s,35,2))*1000+
StrToInt(copy(s,38,2))*10,
mgc[mg,4]:等于IntToStr(msec),
mgc[mg,5]:等于copy(s,41,l),
end,
end,
//读歌词结束
closefile(F),
Timer2.Enabled:等于true,
end
else
begin
toolbar2.Visible:等于false,
Timer2.Enabled:等于false,
end,
end,
2.3.2歌词编辑是否正确,需要进行验证,以下是利用时间控件,在label3标签中显示LRC歌词的代码
procedureTForm1.Timer2Timer(Sender:TObject),
varmsec,i,j,l:integer,
begin
l:等于round(Form1.MediaPlay1.CurrentPosition*1000),
//在Label3中显示歌词
fori:等于1tomgdo
forj:等于1to4do
begin
ifmgc[i,j]<>''then
begin
msec:等于StrToInt(mgc[i,j]),
ifabs(msec-l-moffset)<150then
Label3.Caption:等于mgc[i,5],
本文为全文原貌未安装PDF浏览器用户请先下载安装原版全文end,
end,
end,
2.4编辑LRC歌词的代码
2.4.1将歌词读入网格中
procedureTForm
关于歌词相关论文范文素材
varF:textfile,
s,s1,ti,ar,al,offset:string,
gc:array[1..100,1..5]ofstring,
i,j,l,g:integer,
begin
OpenDialog1.Filter:等于'文本文件(*.txt)|*.txt|歌词文件(*.lrc)|*.lrc',
ifOpenDialog1.Executethen
begin
ifOpendialog1.FilterIndex等于1then
begin
//读取txt文件格式,将歌词放到网格中
AssignFile(F,OpenDialog1.FileName),
Reset(F),
fori:等于1toStringGrid1.RowCount-1do
forj:等于0toStringGrid1.ColCount-1do
StringGrid1.Cells[j,i]:等于'',
i:等于1,
whilenoteof(F)do
begin
readln(F,s),
s:等于trim(s),
ifs<>''then
begin
i:等于i+1,
StringGrid1.RowCount:等于i,
StringGrid1.Cells[4,i-1]:等于s,
end,
end,
closefile(F),
end
else
begin
AssignFile(F,OpenDialog1.FileName),
Reset(F),
//读LRC歌词,将时间标签和歌词读到数组gc中
g:等于0,
ar:等于'',ti:等于'',al:等于'',offset:等于'',
fori:等于1to100do
forj:等于1to5do
gc[i,j]:等于'',
whilenoteof(F)do
begin
readln(F,s),
s:等于trim(s),
l:等于length(s),
s1:等于copy(s,2,2),
ifs1等于'ar'thenar:等于copy(s,5,l-5),
ifs1等于'ti'thenti:等于copy(s,5,l-5),
ifs1等于'al'thenal:等于copy(s,5,l-5),
s1:等于copy(s,2,6),
ifs1等于'offset'thenoffset:等于copy(s,9,l-9),
if(l>10)and(s[1]等于'[')and(s[10]等于']')and(s[11]<>'[')then
begin
g:等于g+1,
gc[g,1]:等于copy(s,1,10),
gc[g,5]:等于copy(s,11,l),
end,
if(l>20)and(s[1]等于'[')and(s[10]等于']')and
(s[11]等于'[')and(s[20]等于']')and(s[21]<>'[')then
begin
g:等于g+1,
gc[g,1]:等于copy(s,1,10),
gc[g,2]:等于copy(s,11,10),
gc[g,5]:等于copy(s,21,l),
end,
if(l>30)and(s[1]等于'[')and(s[10]等于']')and
(s[11]等于'[')and(s[20]等于']')and
(s[21]等于'[')and(s[30]等于']')and
(s[31]<>'[')then
begin
g:等于g+1,
gc[g,1]:等于copy(s,1,10),
gc[g,2]:等于copy(s,11,10),
gc[g,3]:等于copy(s,21,10),
gc[g,5]:等于copy(s,31,l),
end,
if(l>40)and(s[1]等于'[')and(s[10]等于']')and
(s[11]等于'[')and(s[20]等于']')and
(s[21]等于'[')and(s[30]等于']')and
(s[31]等于'[')and(s[40]等于']')and
(s[41]<>'[')then
begin
g:等于g+1,
gc[g,1]:等于copy(s,1,10),
gc[g,2]:等于copy(s,11,10),
gc[g,3]:等于copy(s,21,10),
gc[g,4]:等于copy(s,31,10),
gc[g,5]:等于copy(s,41,l),
end,
end,
//读歌词结束,将时间标签和歌词文件放入网格中
Edit2.Text:等于ti,
Edit3.Text:等于ar,
Edit4.Text:等于al,
Edit5.Text:等于offset,
StringGrid1.RowCount:等于g+1,
fori:等于1togdo
forj:等于0to4do
StringGrid1.Cells[j,i]:等于gc[i,j+1],
本文为全文
关于歌词相关论文范文素材,与利用Delphi开发LRC歌词编辑器相关论文答辩开场白参考文献资料：