*TOpenDialog组件
TOpenDialog组件用于显示一个文件选择对话框。在程序中使用该组件能够显示一个Windows模式对话框，用于选择或打开文件。在程序运行时，调用Execute方法可以打开模式对话框。
*TMediaPlay组件
TMediaPlay组件是一个媒体播放 组件，该组件可以播放Windows中多种媒体文件格式。当该组件播放带有视频的媒体文件时，需要设置Display属性，为其指定一个视频播放面板。TMediaPlay组件的Filename属性表示播放媒体文件的完整文件名，为其指定一个播放文件后才能正确的播放。
*TCombobox组件
TCombobox封装了标准Windows组合框和下拉组合框。组合框可用于从列表中选择或在编辑框中输入。下拉组合框在不同时可以减少屏幕空间的占用。
*TLabel组件
TLabel组件上可以显示一个只读的字符串，通常利用标签组件在窗体上显示静态文本。此外，将标签组件与其他没有标题的组件相关联后，可以通过键盘上的TAB键使这些组件获得焦点。
该模块用到的主要算法（将歌词内容存入到整型数组）
begin
fname:= changeFileExt(Combobox1.Text,'.lrc');
if fileexists (fname) then
begin
toolbar2.visible:=true;// 歌词编辑模块工具栏可见
AssignFile(F,fname);
Reset(F);
mgcn:=0; //全局变量
moffset:=0;
for i:=1 to 100 do
for j:=1 to 5 do
mgc[i,j]:=''; //全局数组变量
while not eof(F) do
begin
readln(F,s);
s:=trim(s);
l:=length(s);
sl:=copy(s,2,6);
moffset:=0; //全局变量
if(l>10) and (sl='offset') then
moffset:=strtoint(copy(s,9,l-9));
if(l>10) and (s[3]>='0') and (s[3]<='9') and (s[1]='[')
and (s[10]=']') and (s[11]<>'[')then
begin
mgcn:=mgcn+1;
msec:=strtoint(copy(s,2,2))*60*1000
+strtoint(copy(s,5,2))*1000+strtoint(copy(s,8,2))*10;
mgc[mgcn,1]:=inttostr(msec);
mgc[mgcn,5]:=copy(s,11,l);
end;
5.3 歌词显示模块详细设计
歌词编辑是否正确，需要进行验证，主要是利用时间控件，在Lable中显示LRC歌词。先用Round（）方法获得歌曲的时间长度赋予L变量，通过TTIMER将存储在mgc[]数组中的歌词内容提取出来[16]。以下是该模块过程及变量声明：
5.3.1歌词显示模块的变量说明
表2 歌词显示模块数据表
Table 2 Lyrics demonstration module data
变量名 中文说明 类型 说明
Msec 文件名 STRING 指定歌曲的播放时间中的“毫秒”
i 文本变量 TEXTFILE 指定存放歌词数组的行变量转贴于 酷文网-论文下载中心 http://www.coolwen.net
共6页: 上一页 [1] [2] [3] 4 [5] [6] 下一页
网摘收藏:
当前位置:
载入中...
-> 在百度中搜索：
-> 在Google中搜索：