Question

如何返回某指定字符串在RichEdit中所在的行号

Answer 1

用RichEdit（或者memo）控件制作文本编辑器时，通过访问lines.count属性可以得到总行数，但是若想知道光标当前所在行的行号就麻烦了，因为delphi没有提供这个属性。要实现这个编辑器必备功能，就须调用em_ LineFromChar。请试试下面的程序。 　　

先在窗口中布置一个RichEdit或者memo（命名为editor），以及一个button。在button的onclick事件中写入下列代码。 　　

var 　　CurrentLine:Integer;
begin
CurrentLine:=EditorPerform(em_ LineFromChar,SFFFF,0);
ApplicationMessageBox(PChar(′当前行号是′＋IntToStr(CurrentLine)),'消息',mbiconinformation);
end;