我怎样取得RichEdit中内容的每一行的行数? 我怎样取得RichEdit中内容的每一行的行数?如asdfasdfasdfasdfbsdfasdfasdfasdfcsdfasdfasdfasdfasd当我将光标放在bsdfasdfasdfasdf这一行时,取出的值是2 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在button的onclick事件中写入下列代码。 var CurrentLine:Integer; begin CurrentLine:=EditorPerform(em_ LineFromChar,SFFFF,0); ApplicationMessageBox(PChar(′当前行号是′+IntToStr(CurrentLine)),′消息′,mb_ iconinformation); end;注意:第一行的行号为零。 用RichedEdit1.CaretPos.y也可以得到 "当我将光标放在bsdfasdfasdfasdf这一行时,取出的值是2"对的,因为第一行行数是0, 行数是从0开始数的。 edit1.Text := richedit1.Lines.Strings[0]; edit2.Text := richedit1.Lines.Strings[1]; edit3.Text := richedit1.Lines.Strings[2]; 画pagecontrol的tab,如何去掉tab之间的阴影。 请教局域网内的即时通讯软件设计思路 关于Indy组件的问题 无法理解的事件无法响应问题!!!!!!!!!! 怎么做一个定时器呢? TFlatSplitter 高分买号(请斑竹手下留情,我和这朋友联系的号被黑了,) 这是我的程序设计思路,朋友为我做了三个表,请帮我把这3个表的e文翻译为中文,帮我看看这3个表是否已经满足我软件需要,谢谢 急:请问SQL里怎样可以比较时间:) 关于Delphi打包问题 关于函数调用,求助 高手请进,由两个adodataset,产生另外一个adodataset,该怎么办?
var
CurrentLine:Integer;
begin
CurrentLine:=EditorPerform(em_ LineFromChar,SFFFF,0);
ApplicationMessageBox(PChar(′当前行号是′+IntToStr(CurrentLine)),′消息′,mb_ iconinformation);
end;
注意:第一行的行号为零。
edit2.Text := richedit1.Lines.Strings[1];
edit3.Text := richedit1.Lines.Strings[2];