L
lsxjj
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
seltextbufchar;
begin
GetMem(seltextbuf,RichEdit1.SelLength);
RichEdit1.GetSelTextBuf(seltextbuf,RichEdit1.SelLength);
form1.caption:=string(seltextbuf);
end;
你在编辑框中写:sssssssssssssssssssss(随便多少个,要多一点)
单你选中8个s:(就是ssssss)的时候会出错
而选中任意其他数目的s的时候却可以正常运行!!
各位说这是不是一个bug?
var
seltextbufchar;
begin
GetMem(seltextbuf,RichEdit1.SelLength);
RichEdit1.GetSelTextBuf(seltextbuf,RichEdit1.SelLength);
form1.caption:=string(seltextbuf);
end;
你在编辑框中写:sssssssssssssssssssss(随便多少个,要多一点)
单你选中8个s:(就是ssssss)的时候会出错
而选中任意其他数目的s的时候却可以正常运行!!
各位说这是不是一个bug?