歌词同步编辑与显示系统的设计与实现

j 整型数组变量            ARRAY                   指定存放歌词数组的列变量
L 分                      INTEGER                 歌曲播放的总时间

5.3.2  歌词显示模块的过程说明
**********************************************************************
procedure TForm1.Timer2Timer(Sender: TObject);
var msec,i,j,l:integer;
**********************************************************************
     该模块运用的组件主要是Edit类，TTimer类具体功能在上文已经阐述。

5.4  歌词编辑模块详细设计
单击“打开”按钮，选择要打开的“.LRC”和“.TXT”格式文件，将文本内容读入StringGrid类表格，在播放歌曲的同时，利用TTimer组件将歌曲的当前的播放时间放入Edit框中，歌曲名称，专集名称，偏移量读入Edit编辑框，单击表格单元格，将当前时间添加到单元格中，代替原来的时间标签,。以下是该模块过程及变量声明：
5.4.1歌词编辑模块的变量说明
                     表3歌词编辑模块数据表
Table 3 Lyrics edition module data
变量名                    中文说明                类型                         说明
ti                         歌曲名称 STRING 返回歌曲名称

ar 演唱者 STRING 返回演唱者名称
al 专辑名 STRING 返回专辑名称
offset 偏移量 INTEGER 返回歌曲偏移量
gc[] 歌词数组变量 ARRAY 存放歌词数祖
i 表格行 INTEGER 表格行变量
j 表格列 INTEGER 表格列变量
t 当前播放时间  DATETIME 返回当前播放时间
s 时间字符串 STRING 播放时间转换为字符串 

5.4.2  歌词编辑模块的过程说明
**********************************************************************
procedure TForm1.SpeedButton7Click(Sender: TObject);//将歌词读入网格中
var F:textfile;
              s,sl,ti,ar,al,offset:string;
              gc:array[1..100,1..5] of string;
              i,j,l,gcn:integer;
**********************************************************************
**********************************************************************
procedure TForm1.Timer1Timer(Sender: TObject);// 将歌曲的播放时间
放到文本框中
var min,sec,msec:integer;
              len:integer;
              s:string;
              t:TDateTime;

**********************************************************************
**********************************************************************
procedure TForm1.SpeedButton8Click(Sender: TObject);//保存编辑好的歌词
文件
var F:textFile;
              i,j:integer;
              fname,s:string;
**********************************************************************
主要实现方法：
Format('%2d:%2d:%2d.%3d',[0,min,sec,msec])
//将min,sec,msec转换为规定格式
StrToDatetime(s)
//将时间字符串类型转换为时间类型
主要应用组件：
*StringGrid组件
 StringGrid组件以表格形式显示和处理数据集中的记录，TDBGrid组件在表格中显示数据集中的记录，用户也可以修改表格中的数据。该组件允许用户同时浏览多条记录，可利用鼠标和水平或垂直滚动条直接在表格中定位记录或字段。
    *TSaveDialog组件用于显示一个“另存为”对话框。TSaveDialog对话框组件与TOpenDialog对话框组件基本相同，Options属性中的OfOverwritePrompt属性，是当存储的文本名称相同时，将提示一个警告对话框，提示信息为是否替换此文件。

   该模块用到的主要实现过程：
获得当前时间的事件过程
**********************************************************************
procedure TForm1.Timer1Timer(Sender: TObject);
var min,sec,msec,len:integer;
          s:string;
          t:TDateTime;//时间类型变量
begin
          len:=round(Form1.MediaPlay1.controls.CurrentPosition*1000);//获得当前媒体的播放位置转贴于 酷文网-论文下载中心 http://www.coolwen.net


共6页: 上一页 [1] [2] [3] [4] 5 [6] 下一页

网摘收藏:

上一篇：移动客户管理系统的设计与实现
下一篇：“电路分析”教学网站的设计与实现

 -> 在百度中搜索：歌词同步编辑与显示系统的设计与实现
 -> 在Google中搜索：歌词同步编辑与显示系统的设计与实现