memo获得行数(5)

Y

yobin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-16

• #1

大家好，我现在用memo控件来输入文字，然后memo的wordwrap设置为true，比如下面这段在memo中输入的文字：111111111111111111111111111111111111111111111111111111111111222222222222333333333334444444444444455555555总共是5行，用memo1.line.count获得，我现在想要把上面的memo的行数最小字符限制为20，也就是说当一行内的字符数超出20个之后字段算为一行，那上面应该是（60个1，应该是算3行）总共7行，请问大家怎么实现，谢谢

 

Z

zylwolf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-16

• #2

把表结构贴出来看看！

 

Z

zkktom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-24

• #3

楼主的意思偶明白了看来只能对里面的进行长度判断实现了。varcol:integer;col;=0;for i:=0 to memo1.lines.count-1 dobegin col=col+(length(memo1.lines.string) div 20); if (memo1.lines.string) mod 20)>0 then col:=col+1;end;

 

Y

yobin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-24

• #4

to zkktom;谢谢回答，我把你的代码放进去，出现了好几个错误，很多是'string'和'integer'不兼容类型

 

F

foam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-24

• #5

varcol,i:integer;begin col;=0; for i:=0 to memo1.lines.count-1 do col=col+((length(memo1.lines)+19) div 20);end;

 

A

amang8682

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-24

• #6

请问是否可以把chrome嵌入到自己的应用程序中？开发Web浏览小工具，要求如下：1、内嵌Google浏览器。2、运行程序可以读取配置文件中设置的URL，并在内嵌的Google浏览器中打开。3、内嵌Google浏览器要求不允许显示浏览器地址栏等信息，只显示页面。能完成此工具的可以走外包形式。联系人： 林先生电话： 13683611366

 

Y

yobin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-24

• #7

to all:你们上面这个语句只能针对每行字符都大于20个的才可以，那万一每行字符都小于20个呢，用div取整的话都是0

 

F

foam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-24

• #8

col=col+((length(memo1.lines)+19) div 20); // 长度大于0，就算作一行了！

 

Y

yobin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-24

• #9

谢谢foam