请问怎样在memo框里指定的位置插入字符串?(100分)

S

snowwear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-16

• #1

我知道memo可以在某一行插入,
但现在我能获得选中的文字的起始点和结束点,用selstart和sellength得到.但我想在
获得位置后,在起始点之前插入回行,请问如何插入?

 

D

dq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-16

• #2

Memo1.SelLength := 0;
Memo1.Perform(WM_CHAR, 13, 0);

 

F

failureman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-16

• #3

s1:=copy(memo1.text,1,selstart)+yourwanttoinsertstr;
s2;=copy(memo1.text,selstart,length(memo1.text)-selstart);
memo1.text:=s1+#13#10+s2;
memo1.selstart:=length(memo1.text)+1;

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-16

• #4

楼上两位的应该都可以，但是dq的更巧妙，呵呵：）

 

W

wangxd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-16

• #5

dq的确实好，但有没有别的好方法呢？比如插入一个字符串

 

C

cactus123456

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-17

• #6

http://acgahqtv.home.china.com/delphi/delphiarticle/tec15.html

 

B

BaKuBaKu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-18

• #7

还有更简单的办法呢！而且可以插入一个字符串：
Memo1.SelText := 'asdfasdfasdf';

 

J

jiang_wg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-19

• #8

这样可能更好理解：
memo1.SelText:=chr(13)+chr(10)+memo1.SelText;

 

S

snowwear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-19

• #9

接受答案了.