-
本版专家分：4053结帖率 100% -
在用QuickReport做报表时,用QRLabel显示数据,但是QRLabel并不直接支持换行,需要用属性设置
WordWrap为true, 和AotoStretch 属性为true.为了能随着内容的变化动态的换行.我写的程序和修改后的程序，代码如下:
int iLength; //要显示的文字的总长度
int iRows; //行数
int iY; //余数
AnsiString temp = ""; //存放临时字符串
String Str;
//使报表值自动换行
iLength = strlen(Str.c_str());
iRows = iLength / 100;
iY = iLength % 100;
if (iRows == 0)
{
lbl->Caption = Str;
}
if ((iRows == 1) && (iY > 0))
{
lbl->Caption = Str.SubString(1, 100) + " ";
}
if ((iRows > 1) && (iY >= 0))
{
for (int i = 0; i < iRows; i++)
{
temp += Str.SubString(i * n + 1, (i + 1) * n) + " ";
lbl->Caption = temp;
}
/*******************************************************************************
FunctionName: AutoNewLine
Description: 报表组件QRLabel的显示的信息的自动换行函数
Date: 2004-11-13
参数说明：lbl TQRLabel 类型
Str 要显示的字符串
n 组件每行显示的字符的长度
********************************************************************************/
void AutoNewLine(TQRLabel *lbl, AnsiString Str, int n)
{
int iLength; //要显示的文字的总长度
int iRows; //行数
int iY; //余数
AnsiString temp = ""; //存放临时字符串
iLength = strlen(Str.c_str());
iRows = iLength / n;
iY = iLength % n;
if ((iRows == 0) || ((iRows == 1) && (iY == 0)))
{
lbl->Caption = Str;
}
if ((iRows == 1) && (iY >= 0)) //表示有余数，还不够两行
{
lbl->Caption = Str.SubString(1, n) + " ";
}
if ((iRows > 1) && (iY >= 0))
{
for (int i = 0; i < iRows; i++)
{
temp += Str.SubString(i * n + 1, (i + 1) * n) + " ";
lbl->Caption = temp;
}
}
/*
if (((iRows == 0) && (iY > 0)) || ((iRows == 1) && (iY == 0)))
{
lbl->Caption = Str;
}
else
{
for (int i = 0; i < iRows; i++)
{
temp += Str.SubString(i * n + 1, (i + 1) * n) + " ";
lbl->Caption = temp;
}
}
*/
}
请大家帮忙看一看,如果分数不够,可以再加.
-
本版专家分：4053
-
一直没人回答,自己先顶一下.难道这问题就这么难么?
-
本版专家分：12495
-
- 黄花 2005年3月 C++ Builder大版内专家分月排行榜第二
-
-
QuickReport自动换行一直以来都是一个悬而未决的问题，你可以在要换行的地方加空格解决～～
-
本版专家分：4053
-
h98458(零点起飞) ( ) :
我写的程序就是解决换行的问题,当要显示的信息超过QRLabel横行显示的数据几个字符时,没有效果,但是如果超过2倍,或者更多倍时就可以自动换行了. 你帮我看看,为什么超过横行几个字符时,就不换行呢?也请下面将要回答的朋友畅所欲言.
-
本版专家分：4053
-
回答的人太少，只好自己顶了.那些所谓的高手都哪里去了,难道这样的问题都解决不了吗?
他们可是挂着红星的啊?
-
本版专家分：4053
-
我在把我的改进程序发上来.
还没有测试,请大家先帮忙看一看.
int iLength; //要显示的文字的总长度
int iRows; //行数
int iY; //余数
AnsiString temp = ""; //存放临时字符串
iLength = strlen(Str.c_str());
iRows = iLength / n;
iY = iLength % n; //余数
if (((iRows == 0) && (iY > 0)) || ((iRows == 1) && (iY == 0)))
{
lbl->Caption = Str;
}
if ((iRows == 1) && (iY > 0)) //表示有余数，还不够两行
{
lbl->Caption = Str.SubString(1, n) + " ";
}
if ((iRows > 1) && (iY >= 0))
{
for (int i = 0; i < iRows; i++)
{
temp += Str.SubString(i * n + 1, (i + 1) * n) + " ";
lbl->Caption = temp;
}
}
-
本版专家分：4053
-
我的问题已经解决了,我把最新的代码发上来,供大家参考!
/*******************************************************************************
FunctionName: AutoNewLine
Description: 报表组件QRLabel的显示的信息的自动换行函数
Date: 2004-11-13
参数说明：lbl TQRLabel 类型
Str 要显示的字符串
n 组件每行显示的字符的长度
********************************************************************************/
void AutoNewLine(TQRLabel *lbl, AnsiString Str, int n)
{
int iLength; //要显示的文字的总长度
int iRows; //行数
int iY; //余数
AnsiString temp = ""; //存放临时字符串
iLength = strlen(Str.c_str());
iRows = iLength / n;
iY = iLength % n;
if (((iRows == 0) && (iY > 0)) || ((iRows == 1) && (iY == 0)))
{
lbl->Caption = Str;
}
if ((iRows == 1) && (iY > 0)) //表示有余数，还不够两行
{
lbl->Caption = Str.SubString(1, n) + " " + RightStr(Str, iLength - n + 1); //出问题处
}
if ((iRows > 1) && (iY >= 0))
{
for (int i = 0; i < iRows; i++)
{
temp += Str.SubString(i * n + 1, (i + 1) * n) + " ";
lbl->Caption = temp;
}
}
}
问题解决了，我想把分散了,大家都来吧.来者有分!
-
本版专家分：4053
-
散分都没人要,自己顶了.
-
本版专家分：4053
-
程序的再次改进.
int iLength; //要显示的文字的总长度
int iRows; //行数
int iY; //余数
AnsiString temp = ""; //存放临时字符串
AnsiString SubStr = ""; //存放剩余的字符串
iLength = strlen(Str.c_str());
iRows = iLength / n;
iY = iLength % n;
//要显示的字符串小于QRLabel一行能显示的字符串,不换行
if (((iRows == 0) && (iY > 0)) || ((iRows == 1) && (iY == 0)))
{
lbl->Caption = Str;
}
//表示有余数，还不够两行
if ((iRows == 1) && (iY > 0))
{
lbl->Caption = Str.SubString(1, n) + " " + RightStr(Str, iLength - n + 1);
}
//要显示的字符串是QRLabel每行显示的字符的整数倍,或者有余数的情况
if ((iRows > 1) && (iY >= 0))
{
for (int i = 0; i < iRows; i++)
{
temp += Str.SubString(i * n + 1, (i + 1) * n) + " ";
SubStr = RightStr(Str, (iLength - (i + 1) * n) + 1); //改进处
}
lbl->Caption = temp + SubStr;
}
-
本版专家分：2749
-
用TQrMemo或者TQrRichEdit就不会有你这样的问题了。
