编辑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文件。就完成了。