关于richedit的问题！ (100分)

W

winsock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #1

大家好，我想请教一下richedit怎么实现这样的功能（导入文本的时候）？也就是在打字软件所出现的那样，
如在richedit中：
122222222222222222
------------------ //空行
322222222222222233
------------------//空行
也就是说。导入一文本的时候，自动出现上面的那样子！谢谢了！！！！

谢谢朋友了，不过还是达不到我的要求，我一开始的时间没有说得很明白！
当我读取一个TXT文件的时候，如果这个TXT文件行的宽度大于Richedit的时候，
那么里面的内容就会出现这样！如：
132242433333090232233333
t4rt324242424242
-------------------//空行！
323333333333333
而我要求的结果也是前面所说的，一行有的，一行空行！谢谢了！

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #2

while not eof(f) do
begin
readln(f,s);
RichEdit1.Lines.Add(s);
RichEdit1.Lines.Add('');
end;

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #3

yes

 

W

winsock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #4

谢谢楼上的朋友了，不过还是达不到我的要求，我一开始的时间没有说得很明白！
当我读取一个TXT文件的时候，如果这个TXT文件行的宽度大于Richedit的时候，
那么里面的内容就会出现这样！如：
132242433333090232233333
t4rt324242424242
-------------------//空行！
323333333333333
而我要求的结果也是前面所说的，一行有的，一行空行！谢谢了！

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #5

richedit.wordwrap := false;

 

W

winsock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #6

我的意思是要如果txt内容超过richedit的宽度是要自动换行的呀！不是上面的这个呀！
如果设置为false，那样子richedit的宽度把内容切了一半，得用键盘才看见，而我想做一个
打字软件呀！谢谢大家拉！

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #7

我想我明白你的要求了。 只有修改装入的text内容。 在自动换行的地方插入#13#10#13#10

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #8

用键盘摸拟是最好的，否则动态计算分行，但可能会有半个汉字问题要处理。

loadfromfile........
setfocus
ctrl+end caretpos.y 得到行数
ctrl+home
for ........
begin
snedkey(END)
if 不是真行尾 sendkey(enter);//根据光标处字符位置判断
sendkey(enter)
sendkey(downarrow)
end

//主要API keybd_event(......)
不是真正行尾时要发两个回车

 

W

winsock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-13

• #9

多人接受答案了。