首页 > 代码库 > 编辑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)