var temp: pChar
begin
GetMem(temp,Memo1.SelLength);
Memo1.GetSelTextBuf(temp,Memo1.SelLength+1);
ShowMessage(temp);
FreeMem(temp);
end;我认为上面的代码有问题应该给temp申请Memo1.SelLength+1内存空间
不知道我想法对不,
但是我用上面代码测试却可以通过,只要你在选择了文本就能成功.
不知道为什么
请各位大虾帮我解惑
谢谢!!
begin
GetMem(temp,Memo1.SelLength);
Memo1.GetSelTextBuf(temp,Memo1.SelLength+1);
ShowMessage(temp);
FreeMem(temp);
end;我认为上面的代码有问题应该给temp申请Memo1.SelLength+1内存空间
不知道我想法对不,
但是我用上面代码测试却可以通过,只要你在选择了文本就能成功.
不知道为什么
请各位大虾帮我解惑
谢谢!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货