首页 > 代码库 > 编辑LRC(2)
编辑LRC(2)
上次的编辑LRC,是在数据库里实现的。和网上的那个LRC编辑器相比,还是有不足之处。主要的不足就是要用数据库。这给不弄数据库的人带来很多不便。就算会用数据库,也有很多不便。原理上,是网上的那个来得好些。因此就想把它做成功能差不多的。
要达到这个目的,有几样先要解决:
一、获取memo1中的行数;
二、定位到需要去的行数;
三、在特定的位置插入内容。
本过程用的是点击插入。因此,在按钮中实现上述的三步。
一、取得行数。在按钮中var一个变量:
var
Hang,Num,:longint;
ss:TPoint;
i:integer;
begin
Num:=SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
Hang:=Num+1;//获取行数;
i:=StrToInt(Edit1.Text);
ss.X :=0;
ss.Y:=i;//指定行数
memo1.SetFocus;//定位光标到指定和行和列数;这里的列数始终为0;
memo1.CaretPos:=ss;
Memo1.SelText := ‘[‘+Edit2.Text+‘]‘;//在指定的地方插入已取得的时间。
end;
使用时将需要加入时间的歌词拷贝到Memo1中,先定位到第一行,插入开始的时间:[00:00:01],然后打开媒体文件,在媒体播放到本句的最后一个词时,点击“插入时间”按钮即可。完成后再保存为*.lrc文件。就完成了。
编辑LRC(2)
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。