OMG,没有简单方法,
Count :=0;
for i:=0 to Row-1 do
Count := Count + Richedit1.Lines[i].Length;
Count := Count + Col;
Count :=0;
for i:=0 to Row-1 do
Count := Count + Richedit1.Lines[i].Length;
Count := Count + Col;
var:
mystd:Tpoint;
begin
mystd:=Form1.RichEdit1.CaretPos;
str:=Form1.RichEdit1.Lines[mystd.y];